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STÉ OLITEC, 20, rue de Remenauville - 54000 NANCY 
Téléphone : 83.35.00.65 


SYSTÈME EXPERT 


pour Macintosh 










FONCTIONNE EN 

e Chainage avant 

e Chainage arrière 

e Vérification 
d'hypothèses 

e Modes “déduction” 
et vérification 
assistées, proposés 





Installez un Système Expert aux fonctionnalités professionnelles 

sur votre Mac (128 K,512K,512/800 ou MacP lus) : 

e Création, modification, sauvegarde de vos propres «Bases de 
Connaissances» pouvant contenir jusqu'à 250 Règles exprimées 
en français courant 

e Chaque Régle peut comporter de 1 à 6 conditions 

e Liste et Dictionnaire des Bases de Regles et de Faits 

e Moteur d'inférence fonctionnant en logique propositionnelle 

e Simplicité d'utilisation, exploitant toute la convivialité du Mac 

e Logiciel structure écrit en Microsoft® MBASIC 2.0 











































e Programme source livré non protégé automatiquement 
e Logiciel proposé complet, port inclus, au prix de 350 F TIC en cas de non- 
résolution 







Commandez dès aujourd'hui votre disquette, contenant le Programme source + Mode d'emploi et Documentation 
complete + 3 Bases de Connaissances proposées en exemple (que vous pourrez éditer et modifier) 
en Botanique, Diagnostic automobile et Grapholagie 


fidressez votre chèque à BOYER-LARUET, 22 Soudanes, 78430 LOUVECIENNES 








mars-avril 1987 Macintosh SE & II 


Éditorial C EE 


Hervé Thiriez Page 5 
Recherche d'octets 


Patrick Covare 


+] |// 


Apple & Minitel : 
les caractères GT 
semi-graphiques 





Cryptage de 
fichiers : Kruptos 
Jean-Luc Bazanegue 
Page 45 









Cryptage de 
fichiers : Kruptos 


Christian 


Ceres 
Conversions een." 
HGR/DHGR Simplexe 


RS € Serge Cattan 
Page 11 = nue Es Page 57 


De l'octet au AppleWriter & 
nibble : Kyram Gildas [RAM Christian Piard 


Ménier 1e | 
Le [en _—— Page 63 


ProDOS et fichiers Programme WPL : 
détruits Patrice Neveu tabulations 
automatiques  BernardBel 






Page 10 





el Ta î) 
Page 26 | re 
“| DOG. 
PageMaker : .: 
£ Apple & Minitel : 


essai ‘routier’ . ds 
; ligne ‘artificielle’ 
Philippe Mathieu Jean-Louis Chaulot-Talmon 


Page 40 Page 66 
Micro-informations : page 68. Un nouveau produit Pom's, BananaSoft : page 71. Courrier des Lecteurs : page 73. 
Les annonceurs ; Apple : pages 38 et 39. Boyer-Larvet : page 2. Olitec : page 2. 


Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39 51 24 43. Directeur de la publication : Hervé Thiriez 





Pom's n° 29 





Be — On + — re © = 7 = É tr a RU” 








Disquettes d'accompagnement 
Apple /] : DOS & ProDOs, 
800 Ko et 140 Ko 


À partir de ce numéro, les disquettes 
d'accompagnement de la revue vous sont 
proposées sous deux formes : 140 Ko 5,25 
pouces et 800 Ko 3,5 pouces, et ce, pour penser 
à nos lecteurs qui ont ‘craqué’ pour le IIGS et 
qui n'ont plus de drive 140 Ko. 


Autre nouveauté, nos disquettes 140 Ko vous 
sont proposées en double face : 


- Recto formaté en DOS 3.3 
- Verso formaté en ProDOS 
/POMS?29/) 


sans changement de prix : 60,00 F. 
La disquette 800 Ko coûte 80,00 F. 


Les deux faces de la disquette 140 Ko et la 
disquette 800 Ko comportent tous les fichiers 
relatifs à la revue sans tenir compte du 


(nommée 


système d'exploitation nécessaire à tel ou tel 
programme : vous pouvez ainsi récupérer les 
fichiers plus facilement pour les adapter ou en 
extraire les routines. 


Pour plus de commodité, sur la disquette 800 
Ko et sur la face ProDOS de la disquette 140 Ko, 
mettez les fichiers ‘ProDOS’ et 
‘BASIC.SYSTEM' pour que vous puissiez 
démarrer directement. 


Voici la liste des fichiers des disquettes 
d'accompagnement de ce numéro avec 
indication du système d'exploitation supporté 
pour leur fonctionnement. Bien entendu, les 
sources (tous en format TEXT) peuvent être 
utilisés indifféremment avec DOS et ProDOS. 





Fichier DOS ProDOS Remarques 

RECHERCHE e objet exécutable (BRUN) 

T.RECHERCHE Q e source 

DHGR.DEMO ° e programme de démonstration Basic (RUN ou -) 
DHGR . e objet appelé par DHGR.DEMO 

DHGR.PIC e e image DHGR (Extasie) utilisée par DHGR.DEMO 
T.DHGR e ° source 

KYRAM e objet exécutable (BRUN) 

T.KYRAM e e source 

INDEX ° objet exécutable (BRUN ou -) 

BLOC ° objet exécutable (BRUN ou -) 
T.INDEX.CODE ° . source 

T.BLOC.CODE . Q source 

KRUPTOS e objet exécutable (BRUN ou —) 

KRUPTOS.S Q e source 

KRUPTOS.CODE e objet non exécutable 

SECRET e ° fichier à décrypter par vos soins 

SIMPLEXE ° programme Basic (RUN) 

PATISSERIE fichier de démonstration utilisé par Simplexe 
WPL.TAB ° . programme WPL pour AppleWriter 

AWI.C e objet à ‘bloader’ pour patcher AppleWriter 
AW2.C ° objet à ‘bloader’ pour patcher AppleWriter 
AWI e . source 

AW2 ° e source 

GRAPH.VIDEOTEX e . programme Basic (RUN) 


Pom's n° 29 





Éditorial 


Enfin, nous venons de voir la sortie du Mac ouvert, baptisé Mac IL, et du Mac SE (Super- 
Entrouvert ?), ainsi que l’apparition de toute une famille de nouveaux produits Mac, présentés 
dans ce numéro. Le show typiquement “Apple” pour la sortie de ces nouveaux produits nous a 
convaincu, une fois de plus, que cette société doit détenir le brevet d’une nouvelle unité de 
mesure informatique, le Mo (Mégalo-octet). 


Le plaisir de voir apparaître ces nouveaux produits a été quelque peu estompé par la dispari- 
tion, depuis la sortie de notre dernier numéro, des revues Golden (disparition complète) et In- 
fomag (transmutation ?). Après avoir été la première revue dédiée à une famille de matériels 
micro, serons-nous la dernière ? Il est certain qu’il en reste aujourd’hui à peine une dizaine, sur 
les plus de 50 créées depuis le premier numéro de Pom’s. Rassurez-vous, l’équipe de Pom’s dis- 
pose toujours de l’enthousiasme et du dynamisme de tout ‘micro-maniaque’ mais également de 
curiosité face aux nouvelles machines et de projets qui se concrétisent au fil des numéros. 


Avec ce numéro, nous vous proposons sur la disquette Macintosh 29 (et probablement de façon 
régulière sur les prochaines) des logiciels domaine public ou Mac Honor. Bien entendu, nous les 
mettons sur nos disquettes sans en modifier le prix. 


Autres nouveautés : 


* les disquettes Apple // existent aujourd’hui en 800 Ko ProDOS et 140 Ko DOS et ProDOS... 
sans modification de prix, 

* EPE 5.1 fonctionne sur l’Apple IIGs et existe sur disquette 800 Ko, 

* BananaSoft, une nouvelle disquette qui jette un pont entre l’AppleSoft et le Basic Microsoft 
LES A 


Nous vous donnons bien entendu rendez-vous à Apple Expo, pas immédiatement, Apple ayant 
décidé de maintenir le lieu de La Vilette, mais de modifier la date : début octobre. 
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Recherche d’octets 


Patrick Covare 


Ce programme permet de recher- 
cher, en mémoire ou sur dis- 
quette, une expression quelcon- 
que. 

Il peut être très utile, par exem- 
ple pour retrouver tous les appels 
à une routine quelconque, 
l'endroit où une mémoire particu- 
lière est modifiée, etc. 


Écrit en assembleur, le 
programme est rapide. Les 35 
pistes d'une disquette sont 
examinées en moins de 30 secon- 
des, et une recherche en mémoire 
ne demande que 2 ou 3 secondes 
pour 64K0. 


Commandes 
disponibles 


BRUN RECHERCHE lance le 
programme pour la première fois. 
Par la suite, on pourra 
indifféremment utiliser & 
(l'ampersand) ou Ctrl-Y à partir 
du moniteur. 


Les commandes ‘A’ et ‘7? 
permettent de définir les adresses 
hexadécimales de début et fin de 
recherche en mémoire vive. 


Ces adresses ne peuvent se situer 
ni dans l'espace $CO000-$COFF 
réservé aux entrées/sorties (sinon 
bonjour les dégâts!), ni dans la 
plage $9500-$95FF où est 
conservée l'expression à recher- 
cher. Pendant l'exécution, ces 
plages sont automatiquement 
évitées par le programme. 


Si l'adresse de départ est 
supérieure à celle de fin, 
RECHERCHE boucle sur $0000 
après avoir examiné l'adresse 
$FFFE, 


Les commandes ‘P° et ‘F? 
permettent de saisir, toujours en 
hexadécimal, les numéros de 


pistes de début et fin de recherche 
sur la disquette. S'ils sont 
identiques, la recherche ne 
s'effectuera que sur une seule 
piste. 


La commande ‘D’ autorise le 
changement de lecteur (1 ou 2). 


La commande ‘E’ permet 
d'entrer une expression à 
rechercher, expression composée 
au maximum de 256 caractères. 


Très pratique : inclure des 
caractères inconnus (wildcards) 
en tapant un ou plusieurs ‘=’. Par 
exemple : "20 == FD" trouvera 
les appels à COUT ($FDED), 
COUTO (S$FDFO), KEYIN 
($FDI1B), etc. 


Afin de ne pas surcharger l'écran, 
seuls les 11 premiers octets sont 
affichés sur le menu ; néanmoins, 
l'expression étant conservée à 
l'adresse $9500, elle peut être 
visualisée par un simple appel du 
moniteur. 


Les commandes ‘R°’ et ‘S’ 
lancent une recherche en mémoire 
ou sur disquette. 


Dans ce dernier cas, la touche 
ESCAPE permet d'interrompre la 
recherche en cours. 


Si des expressions identiques 
sont détectées, leurs adresses, et 
éventuellement les numéros de 
pistes et secteurs, sont affichés. 


Si rien n'a été trouvé, on revient 
au menu. 


Pour une recherche sur disquette, 
l'adresse et ses deux derniers 
chiffres complètent l'affichage. 
Exemple : 
$862A 


P:$12 S:$9 


informe que l'expression a été 
trouvée à l'octet $2A du secteur 
9, piste $12, et qu'elle se trouve 





actuellement en mémoire à 
l'adresse 58622. 


Lors d'une recherche sur la 
disquette, les pistes sont chargées 
une à une, dans un buffer situé en 
$8000-S8FFF. Les secteurs y 
sont stockés dans l'ordre inverse 
(afin d'améliorer le temps de 
traitement) : page $80 pour le 
secteur $F, $81 pour $E, jusqu'à 
$8F pour le secteur 0. 


Bien entendu, le programme se 
charge également de l'affichage 
lorsque l'expression est trouvée 
plusieurs fois sur la même page 
ou le même secteur (ce qui n'est 
pas le cas de Nibbles Away). 


La commande ‘M dirige vers 
le moniteur de l'Apple (retour par 
Ctrl-Y). 


La commande ‘Q’ permet de 
quitter le programme. 


Fonctionnement 
technique 


La configuration mémoire sui- 
vante est utilisée : 
$0000...$000A 

vecteurs page ZÉro ; 
$8000...S8FFF 

buffer de chargement d'une 

piste ; 
$9000...$94A0 

implantation du programme ; 
$9500...$95FF 

buffer de l'expression à 

rechercher ; 


$9600...$96FF 
buffer des caractères inconnus. 


Le listing source est amplement 
commenté et ne devrait pas poser 
de problème de compréhension. 
Cependant, il est bon de détailler 
l'algorithme de recherche. 
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Le sous-programme de comparai- 
son utilise les buffers EXPRESS 
et WILD), initialisés lors de la 
saisie de l'expression. EXPRESS 
contient la suite d'octets a recher- 
cher, WILD stocke l'emplace- 
ment des caractères inconnus. 


Prenons un exemple. Soit 
l'expression saisie "A8 =B F3". 
Le buffer WILD, utilisé pour 


effectuer un ET logique, contient 
la valeur ‘FFOFFF'. Le zéro 
indique la présence d'un caractère 
inconnu. Le buffer EXPRESS 
contient les codes ‘ A80BF3’. Les 
espaces tapés au clavier ont été 
supprimés, et le troisième 
caractère a été remplacé par un 
ZÉrO. 


Si, lors de la recherche, le 


programme rencontre la suite 
d'octets ‘A85BF3’, celle-ci est 
considérée comme identique car : 


A8 AND FF = A8 
5B AND OF = OB 
F3 AND FF = F3 


ce qui correspond exactement au 
contenu du buffer EXPRESS. 























‘ L 80 DEX Non, on poursuit le test. 
Source ‘T.RECHERCHE : 
Assembleur BigMac 82 JSR BELL :La touche etait incorrecte --> BIP, 
83 JMP CHOIX “puis retour pour une autre lecture clavier. 
JO tonnnsnsssananmamaamanatananaataauaaans 84 BON TXA ‘Le numero de ligne de l'option choisie 
zu “ 85 ASL est multiplie par 2, 
3e -— RECHERCHE -- « 86 STA OPTION jet sauvegarde en memoire. 
4. . 87 * 
5 * PATRICK COVARE 02/1986 * 8e CELETEELETEZLLLISLILILILLI TEL] 
6 + * 89 * 
7. Assembleur Big Mac Li 90 JOBAZPF CPX 44 + ROUTINE DE MODIF ADRESSES MEMOIRE ET PISTES * 
CRELECELEZCEE EE CT LT T TITI ZI LI LIL LIT LI IIT) 91 BCS JOBD {Saut a JOBD si option <> À,2,P ou F. 
3 92 ADC #5 
19 93 JSR TABV tInitialisation verticale, 
11 MDEBUT = $0 Adresse de debut de recherche memoire 34 LDA #20 
12 MFIN - $2 ‘Adresse de fin de recherche moire 95 STA CH jet horizontale du curseur. 
13 PDEBUT = $4 #‘Piste de debut de recherche sur disquette 26 LDA #"s" 
14 NDRIVE - $5 {Numero du lecteur en service 97 STA PROMPT ‘Modif du prompteur pour l'affichage d'un $. 
15 PFIN - $6 {Piste de fin de recherche sur disquette 98 JSR GETLN ‘Lecture du clavier. 
16 LONG - $7 Longueur de l'expression a rechercher 93 JSR ZMODE 
17 OPTION - $8 ‘Numero de l'option choisie multiplie par 2 100 JSR GETNUM +Sauvegarge dans A2L,A2H. 
18 TOUR - $9 {Compteur utilise par plusieurs routines 101 DEY #A-t-on entre une chaine vide? 
13 LG - SA #Memoire utili par la routine MENU 102 BEQ BEGIN Oui, retour au menu. 
29 CH - 524 103 LDX OPTION 
21 PROMPT = 533 104 CPX #4 Option choisie = À ou Z ? 
22 A2L - $3E 105 BCC 21 Oui, saut à Z1. 
23 A2K - S3F 106 LDA A2L #Non, il s'agit donc d'une modif de piste, 
24 LOCRNTS = $3E3 107 CMP #$23 et on verifie le numero indique. 
25 ANPERS - $3F5 108 BCC 22 #Branchement en 22 si piste < 35. 
26 CTRLY - $3F8 103 ERREUR JSR BELL #Sinon BIP, 
27 EXPRESS = $9500 “Buffer contenant l'expression a rechercher 110 JMP BEGIN ‘puis retour au menu. 
28 WILD - 593600 ‘Buffer de position des caracteres inconnus 111 21 LDA A2H 
29 RNTS - $B8785 112 CMP  4$95 #Partie haute de l'adresse = $95 ? 
30 RNDRV = SB7EA 113 BEQ ERREUR #C'est interdit --> BIP, 
31 RNVLA = $B7EB 114 CMP #$Co0 tPartie haute de l'adresse = $CO ? 
32 RWPST - SB7EC 115 BEQ ERREUR C'est egalement interdit --> BIP. 
33 RNSCT = $B7ED 116 STA MDEBUT+1,X ; Sauvegarde 
34 RWBUF - $B7F0 117 LDA A2L +de 
35 RNREAD = SB7F4 118 22 STA MDEBUT,X  ;l'adresse, 
36 PRNTAX = SF941 DOS 3.3 119 JMP BEGIN et retour au menu. 
37 BLANK =  SF94À 120 * ? 
38 TABV . SFBSB 121 terenannemnaananantétattet tan at 
39 HOME - $FC58 LT 
40 CLREOL = $rC9IC 123 JOBD CPX #5 * ROUTINE DE MODIF DU NUMERO DE LECTEUR * 
41 RDKEY - $FDOC 124 BCS JOBE +Saut a JOBE sai option <> D. 
42 GETLN = $FD6A 125 DEC MDRIVE Si MDRIVE=2 --> MDRIVE=1, 
43 GETEXP - $FD6F 126 BNE DRIVE 
44 CROUT - SFD8E 127 LDA #2 et inversement. 
45 PRBYTE SFDDA 128 STA MDRIVE 
46 PRHEX = SFDE3 129 DRIVE LDA MDRIVE +Affichage 
47 COUT = $FDED 130 ORA #$B0 jen mode normal 
48 BELL - $FF3A 131 STA $6CF du numero de lecteur, 
45 MONZ D $SFF69 132 JMP CHOIX set retour pour Une autre lecture du clavier. 
50 GETNUM - SFFA7 133 * 
51 ZMODE = SFFC? 134 mnumamaaaatanaamanananaaaaasaa at 
52 135 * 
53 136 JOBE CPX 46 * ROUTINE SAISIE DE L'EXPRESSION À RECHERCHER * 
54 ORG $9000 137 BCS JOBR Saut a JOBR si option © E, 
55 OBJ $3000 138 LDA #15 
56 139 JSR TABV #Initialisation verticale, 
57 140 LDA 48 
58 LDX #7 #Chargement de la chaine d'initialisation 141 STA CH et horizontale du curseur. 
59 INIT LDA CODINIT,X ;pour le ler affichage du menu. 142 JSR CLREOL ‘L'ancienne expression est effacee. 
60 STA MDEBUT, X 143 JSR GETEXP ‘Lecture du clavier. 
61 DEX 144 DEX 
62 BPL INIT 145 BMI STOP #Retour au menu si on entre une chaine vide. 
63 * 146 
ÉA tennennnnnnanantatatnanénatentne 147 LDX #0 4VERIF DE CHAQUE CARACTERE DE L'EXPRESSION 
65 * 148 LDY #0 
66 BEGIN LDA #$4C tinitialisation des vecteurs 149 ENCORE  LDA #82 
67 STA AMPERS AMPERSAND et 150 STA TOUR 4TOUR=Z --> debut de verification d'un octet. 
68 STA CTRLY 4CTRL Y 151 LDA #0 
63 LDA  #BEGIN 152 STA EXPRESS, X 
70 STA AMPERS+1 153 LDA 45FF 
71 STA CTRLY+] 154 STA WILD,X 
72 LDA #>BEGIN 155 IN LDA $200,Y Chargement d'un caractere. 
73 STA AMPERS+2 156 INY 
74 STA CTRLY+2 157 CMP  #$A0 Est-ce un espace? 
75 JSR MENU Affichage du menu, 158 BEQ IN {Oui, on pa au caractere suivant. 
76 CHOIX JSR RDKEY ‘puis lecture d'une touche. 159 CMP #"=" Est-ce un caractere inconnu? 
77 LDX #9 160 BEQ EGAL Oui, on saute a EGAL. 
78 VERIF CMP  JOB,X #La touche enfoncee est-elle valide? 161 EOR #$B0 
79 BEQ BON “Oui, on saute a BON. 162 CMP 4#$0A +Est-il compris entre 0 et 9 ? 
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STOP 
169 DIGIT 

































































183 DEUX 


196 * 
CELLELLLELELLELLLLELELLLLEE ELLES) 
198 * 

JOBR 


CPX 


‘Oui, on saute a DIGIT. 


+588 

#5FA +Est-il compris entre À et F ? 

DIGIT Oui, saut a DIGIT. 

LONG “Non, on sauvegarde la longueur de l'expression, 
BEGIN jet on retourne au menu. 

#50F 

TOUR #Si TOUR=0, un ler caract à deja ete verifie, 
DEUX jet on se branche alors a DEUX. 

EXPRESS,X ;Sinon, on sauvegarde le ler caractere, 

IN puis on saute a IN pour la verif du 2eme. 
TOUR 

EGAL2 #Saut a EGAL2 si TOUR=D. 

#50F 

WILD, X On charge le buffer WILD avec 'OF', 

IN Jet on saute a IN pour le test du 2eme caract. 
WILD, X 

#5r0 

WILD, X Modification du buffer WILD, 

#0 set O0 dans l'accu pour modif du buffer EXPRESS. 
EXPRESS, X 


+Decalage a gauche du ler caractere 
#stocke precedemment dans EXPRESS. 


EXPRESS, X 


EXPRESS, X 
EXPRESS, X ;Sauvegarde du second caractere, 


ENCORE jet verification de l'octet suivant. 


#7 + ROUTINE DE RECHERCHE EN MEMOIRE * 

JOBS :Saut à JOBS si option <> R. 

LONG 

RTI sRetour menu si expr source de longueur nulle. 
MDEBUT 

TSTA+1 sInitialisation 

MDEBUT+1 avec les parametres 

TSTA+2 sdefinis par l'utilisateur. 

MFIN 

FINTST+1 

MFIN+1 

FINTST+8 

TEST #Saut a la routine de comparaison d'octets. 
BEGIN 














216 JOBS CPX #8 * ROUTINE DE RECHERCHE SUR LA DISQUETTE * 
217 BCS JOBM Saut a JOBM si option © S$, 

218 LDA LONG 

219 BEQ RT2 retour menu si expr source de longueur nulle. 
220 LDA MDRIVE 

221 STA RNWDRV tInitialisation 

222 LDA PDEBUT ides routines RNTS et TEST 

223 STA RWPST savec les parametres 

224 IDY #0 sdefinis par l'utilisateur. 

225 STY RWVLM 

226 STY RNBUF 

227 STY TSTA+1 

228 STY FINTST+1 

229 INY 

230 STY RNWREAD +RNTS en mode lecture. 

231 LDA #$80 “Adresse haute du buffer de data RNTS. 
232 STA RNBUF+1 

233 LDA #590 tAdresse haute de fin de la recherche. 
234 STA FINTST+8 

235 JMP  VRFPST 

236 DISK LDA #$F Numero du ler secteur a lire. 

237 STA RNSCT 

238 READ JSR  LOCRNTS Lecture d'un secteur. 

239 JSR RNTS 

240 BCS ERR Branchement a ERR en cas d'anomalie. 
241 INC  RNBUF+1 +Incrementation du buffer de lecture. 
242 DEC RWSCT #Decrementation du numero de secteur a lire. 
243 BPL READ éSaut si lecture piste pas encore terminee. 
244 LDA #$80 ‘Adresse haute du buffer de data RNTS. 
245 STA TSTA+2 

246 STA RNBUF+1 

247 JSR TEST #Saut a la routine de comparaison d'octets. 
248 LDA $C000 #A-t-on appuye sur une touche? 

249 BPL INCPST #Non, on pas. a la piste suivante. 
250 BIT S$C010 

251 CNP 4#5$9B #S'il s'agit de la touche ESCAPE, 

252 BEQ RT2 on retourne au menu. 

253 INCPST INC RNPST sIncrementation du numero de piste. 
254 VRFPST  LDA PFIN 

255 CMP RNPST Faut-il lire d'autres pistes? 

256 BCS DISK Oui, saut a DISK. 

257 JMP BEGIN Non, on retourne au menu. 

258 ERR JSR HOME 

259 LDA #IOERR ‘Affichage d'un message d'erreur. 

260 LDX 4#>IOERR 

261 JSR AFFICHE 

262 JSR RDKEY Lecture d'une touche, 

263 RT2 JMP BEGIN puis retour au menu. 

264 * 

265 mmmanmnanamanamnannnaanant … 

266 * 

267 JOB4 CPX #9 * ROUTINE D'APPEL DU MODE MONITEUR * 


276 RTMON 


282 * 


284 * 
J0BQ 


287 * 


289 * 
TEST 


TSTY 
TSTA 


303 PRTADR 


324 CR 


INCR 


INCR2 


337 T1 


338 FINTST 


345 QUEST 


352 T2 


357 CONT 


CEPLPETTPEELITT) 


JSR 
JMP 


LDA 
STA 


ASBEE 


SE 


JSR 


PE 





















:Saut a JOBQ si option © M, 
#RTMON tInitialise le vecteur CTRL Y, 
CTRLY+1 ‘Pour un retour a RTMON. 
#>RTMHON 
CTRLY+2 
HOME 
COUT 
MONZ ‘Entree dans le moniteur. 
sReinitialise le pointeur de pile. 
OPTION 
#16 Le moniteur a-t-il ete appele via le menu? 
RT2 Qui, on retourne au depart. 
QUEST Non, on se branche dans la routine de test. 
HOME + ROUTINE DE SORTIE DU PROGRAMME * 
$3D0 


nésnnsnannannnnnamnamnnnannnnane 








0 + ROUTINE DE COMPARAISON DES OCTETS * 

TOUR zMemorise le nombre d'expressions retrouvees. 
0 

SFFFF,Y Charge un octet a tester, 

WILD,Y modifie l'accu si c'est un caract inconnu, 
EXPRESS, Y ;puis compare avec l'expression source. 

INCR Saut a INCR si ce n'est pas identique. 
LONG +Expression source entierement testee? 

TSTA Non, on continue les comparaisons. 

TOUR 

PRTADR +Pas d'effacement d'ecran si TOUR > O0. 

HOME 

ss" 

COUT sAffiche un $. 

TSTA+2 

TSTA+*1 

PRNTAX Affiche l'adresse de l'expression retrouvee. 
OPTION 

#12 

CR :Saut a CR s'il s'agit d'une recherche memoire. 
#5 

#Ps 

AFFICHE sAffiche 'P.$' et 'S.S'. 

113 

ca {Place le curseur en colonne 13. 

RNPST 

PRBYTE Affiche le numero de la piste. 

123 

CH {Place ensuite le curseur en colonne 23, 
#58F s‘Adre haute dy 16eme secteur lu par RNTS. 
TSTA+2 :Calcule et 

PRHEX affiche le numero du secteur. 

CROUT +Saute une ligne. 

TOUR 

TOUR 

#22 +22 expressions ont-elles ete retrouvees? 
QUEST +Oui, saut a QUEST. 

TSTA+1 +Incremente la partie basse de l'adr de test, 
T1 set saute a T1 si le resultat n'est pas nul. 
TSTA+2 +Incremente la partie haute de l'adr de test. 
TSTA+2 

#595 Sommes-nous dans le buffer EXPRESS? 

INCR2 Oui, on passe a l'adresse suivante. 

#sco Sommes-nous dans les E/S ($C000..$COFF) ? 
INCR2 Oui, on passe a l'adresse suivante. 

TSTA+1 

500 Est-ce la fin de la zone a tester? 

TSTY 

TSTA+2 

#500 

TSTY Non, on continue les comparaisons. 

TOUR +Des expressions ont-elles ete retrouvees? 
RT3 ‘Non, retour au programme principal. 
#KBDCHX sAffiche 'M=MONITEUR ...' 

#>KBDCAX 

AFFICHE 

RDKEY sLecture d'une touche. 

| dl +Est-ce un M ? 

T2 

JOBM Oui, saut a la routine moniteur. 

4598 +Est-ce la touche ESCAPE ? 

CONT “Non, saut a CONT pour continuer. 

Oui, on annule l'adresse de retour, 

BEGIN jet on se rebranche au depart. 

TOUR 

#22 ‘La fin du test est-elle terminee? 

RTI Oui, retour au programme principal. 

0 Non, il reste encore des octets a tes 

TOUR 

INCR talors, on continue les comparaisons. 


CELELEZLELEELELLLELLIELLILIELIZIIL2] 


#0 * ROUTINE D'AFFICHAGE DU MENU * 
Ca :0n place le curseur a gauche 
TABV jet en haut de l'ecran, 

#10 

BLANK 

#AFFMENU  ;puis on affiche le menu. 
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373 LDX 4>AFFMENU 433 ROR 
374 JSR AFFICHE 434 BCS P3 Saut à P3 si le 2eme caract de l'octet <> '=!', 
375 LDA #13 435 LDA #"=" 
376 STA CH 436 JSR COUT Affiche le signe = . 
377 JSR ECRAN 437 JMP P4 
378 438 P3 LDA EXPRESS, X 
379 LDA #5 AFFICHAGE DES PARAMETRES ADRESSES ET PISTES 435 JSR PRHEX' “Affichage du 2eme caractere. 
380 JSR TABV tLe curseur est place sur la ligne 5. 440 P4 INC CH “Saute un espace. 
381 LDX #0 441 INX 
382 LDY #35 442 DEY 
383 DOLLAR STY CH sInitialisation horizontale de curseur. 443 BNE ENCOR “Saut si l'affich de l'expr n'est pas termine. 
384 LDA #"S" 444 CURS LDA #35 
385 JSR COUT Affichage d'un $. 445 STA CK ‘Place le curseur en bas du menu, 
386 CPX #4 446 JMP  TABVBAS “puis retour via le RTS de TABVBAS. 
387 BCS TWO Saut si le parametre ne comporte que 2 caract. ARE 
388 LDA MDEBUT+#1,X PPTRELLLELLLLELEZLI LILI TIITIITTI1I11) 
389 JSR PRBYTE ‘Affiche 2 caracteres. sans 
390 ThO LDA MDEBUT, X 450 AFFICHE STA ECRAN+I * ROUTINE D'AFFICHAGE SUR L'ECRAN * 
391 JSR PRBYTE Affiche 2 caracteres, 451 STX ECRAN+2 ‘À et X contiennent l'adresse du message. 
392 JSR CROUT jet saute une ligne. 452 LDX #0 
393 INX 453 ECRAN LDA S$FFFF,X {Chargement d'un caractere à afficher. 
394 INX 454 BPL DERNIER 1Si bit 7=0, il s'agit du dernier caractere. 
395 CPX #4 455 CNP 8°," 
396 BCC DOLLAR Saut si le 2eme parametre pas encore affiche. 456 BNE NON 
397 LDY #37 457 JSR CLREOL #Si c'est une virgule on efface la fin de ligne, 
398 CPX 48 458 LDA #58D set on charge l'accu pour un saut de ligne. 
399 BCC DOLLAR “Saut si le 4eme parametre pas encore affiche. 453 NON JSR COUT “Affichage du caractere. 
400 460 INX 
401 LDA MDRIVE AFFICHAGE DU NUMERO DE LECTEUR EN SERVICE 461 JMP  ECRAN 
402 ORA 4#$B0 462 DERNIER ORA #$80 
403 STA $6CF 463 JSR COUT ‘Le dernier caract est affiche en mode normal, 
404 464 INX 
405 LDY LONG AFFICHAGE DE L'EXPRESSION SOURCE 465 UMP CLREOL #‘la fin de ligne effacee, puis RTS via CLREOL. 
406 BEQ CURS Saut à CURS si expression de longueur nulle. 466 * 
407 CPY #12 Expression < 12 octets? 467 nannmmaanatamanannamennanaataña 
408 BCC INF +Oui, on saute a INF. 468 * 
409 LDY #11 Non, on limite l'affich aux 11 premiers octets. 469 CODINIT HEX O000FFFF00012200 
410 INF STY LG 470 
411 LDA #15 471 JOB ASC "AZPFDERSMQ" 
412 JSR TABV +0n place le curseur sur la ligne 15, 472 
413 LDA #41 473 AFFMENU DCI "- RECHERCHE D'OCTETS -,, " 
414 SEC ‘puis on calcule, 474 ASC "(PATRICK COVARE),,," 
415 s& LG 475 ASC "A - MEMOIRE DEBUT, ," 
416 SB&C 16 {selon la longueur de l'expression, 476 ASC "Z - MEMOIRE FIN,," 
417 S&C LG 477 ASC "P - PISTE DEBUT, ," 
418 STA CH ‘la position horizontale du curseur. 478 ASC "F - PISTE FIN,," 
419 LDX #0 479 ASC "D - DRIVE,," 
420 ENCOR LDA WILD,X Debut d'affichage d'un octet de l'expression. 480 ASC "5 - EXP.,," 
421 PHA 481 ASC Æ - RECH MEMOIRE, ," : 
1 #S ee iSaut a Pl si le ler caract de l'octet <> ‘=', ae A x pr 
424 JSR COUT Affiche le signe = . de PEN O IT AIENITER VOA CAO 
425 JMP P2 Les = “ 
426 P1 LDA EXPRESS, X bi ce PeE ne Li 
He Has 488 KBDCHX DCI ", M=MONITEUR SP=CONTINUER ESC=MENU " 
429 LSR ee 
430 LSR 490 IOERR HEX 87 
es e Fa PRHEX ‘Affichage du ler caractere. rs TABVBAS ee nn DCR IDDN EAU TAB CNRNTORCRE 
493 JMP $FB5B 
4 0 ” 
Récapitulation 9088:85 05 A5 05 09 BO 8D CF 9150:91 8C 47 92 C8 8C F4 B7 
‘ ; 9090:06 4C 25 90 EO 06 BO 7A 9158:A9 80 8D F1 B7 A9 90 8D 
RECHER CHE 9098:A9 OF 20 5B FB A9 08 85 9160:4E 92 4C 94 91 A9 OF 8D 
90A0:24 20 9C FC 20 6F FD CA 9168:ED B7 20 E3 03 20 B5 B7 
Après avoir saisi ce code sous 90A8:30 2C A2 00 AO 00 A9 02 9170:B0 2C EE F1 B7 CE ED B7 
moniteur, vous le sauvegarderez par : 90B0:85 09 A9 00 9D 00 95 A9 9178:10 FO A9 80 8D DE 91 8D 
BSAVE RECHERCHE,AS$9000,L$4A1 90B8:FF 9D 00 96 B9 00 02 C8 9180:F1 B7 20 D6 91 AD 00 CO 
90C0:C9 AO FO F8 C9 BD FO 1D 9188:10 07 2C 10 CO C9 9B FO 
9000:A2 07 BD 46 93 95 00 CA 90C8:49 BO C9 OA 90 OB 69 88 9190:1A EE EC B7 A5 06 CD EC 
9008:10 F8 A9 4C 8D F5 03 8D 90D0:C9 FA BO 05 86 07 4C OA 9198:B7 BO CA 4C 0A 90 20 58 
9010:F8 03 A9 OA 8D F6 03 8D 90D8:90 29 OF C6 09 FO 1C 9D 91A0:FC A9 6C A2 94 20 20 93 
9018:F9 03 A9 90 8D F7 03 8D 90E0:00 95 4C BC 90 C6 09 FO 91A8:20 OC FD 4C OA 90 EO 09 
9020:FA 03 20 7D 92 20 OC FD 90E8:08 A9 OF 9D 00 96 4C BC 91B0:F0 1E A9 C5 8D F9 03 A9 
S028:A2 09 DD 4E 93 FO 09 CA 90F0:90 BD 00 96 29 FO 9D 00 91B8:91 8D FA 03 20 58 FC 20 
9030:10 F8 20 3A FF 4C 25 90 90F8:96 A9 00 48 BD 00 95 OA 91CO0:ED FD 4C 69 FF 68 68 A5 
9038:8A OA 85 08 EO 04 BO 3E 9100:0AÀ OA OA 9D 00 95 68 18 91C8:08 C9 10 FO DE 4C 55 92 
9040:69 05 20 5B FB A9 14 85 9108:7D 00 95 9D 00 95 E8 4C 91D0:20 58 FC 4C DO 03 A9 00 
9048:24 A9 A4 85 33 20 6A FD 9110:AE 90 EO 07 BO IE A5 07 91D8:85 09 AO 00 B9 FF FF 39 
9050:20 C7 FF 20 A7 FF 88 F0 9118:F0 17 AS 00 8D DD 91 A5 91E0:00 96 D9 00 95 DO 49 C8 
9058:B1 A6 08 EO 04 90 OC A5 9120:01 8D DE 91 A5 02 8D 47 91E8:C4 07 DO FO A5 09 DO 03 
9060:3E C9 23 90 14 20 3A FF 9128:92 A5 03 8D 4E 92 20 D6 91F0:20 58 FC A9 A4 20 ED FD 
9068:4C 0A 90 AS 3F C9 95 FO 9130:91 4C OA 90 EO 08 BO 76 91F8:AD DE 91 AE DD 91 20 41 
9070:F4 C9 CO FO FO 95 O1 A5 9138:A5 07 FO 6F A5 05 8D EA 9200:F9 A5 08 C9 OC FO 1E A9 
9078:3E 95 00 4C OA 90 EO 05 9140:B7 A5 04 8D EC B7 AO 00 9208:33 A2 94 20 20 93 A9 OD 
9080:B0 12 C6 DS DD 04 A9 02 9248:8C EB B?7 8C F0 B? 8C DD 9210:85 24 AD EC B7 20 DA FD 
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9218:A9 17 85 24 38 A9 8F ED 
9220:DE 91 20 E3 FD 20 8E FD 
9228:E6 09 A5 09 C9 16 FO 25 
9230:EE DD 91 DO 0E EE DE 91 
9238:AD DE 91 C9 95 FO F6 C9 
9240:C0 FO F2 AD DD 91 C9 00 
9248:D0 90 AD DE 91 C9 00 DO 
9250:89 A5 09 FO 27 A9 45 A2 
9258:94 20 20 93 20 OC FD C9 
9260:CD DO 03 4C AE 91 C9 9B 
9268:D0 05 68 68 4C 0A 90 AS 
9270:09 C9 16 DO 07 A9 00 85 
9278:09 4C 30 92 60 A9 00 85 
9280:24 20 5B FB A2 OA 20 4A 
9288:F9 A9 58 A2 93 20 20 93 
9290:A9 OD 85 24 20 28 93 A9 
9298:05 20 5B FB A2 00 A0 23 
92A0:84 24 A9 A4 20 ED FD EO 
92A8:04 BO 05 B5 01 20 DA FD 
92B0:B5 00 20 DA FD 20 8E FD 
92B8:E8 E8 EO 04 90 E2 AO 25 
92C0:E0 08 90 DC A5 05 09 BO 
92C8:8D CF 06 A4 07 FO 4A CO 
92D0:0C 90 02 AO OB 84 OA A9 
92D8:0F 20 5B FB A9 29 38 ES5 
92E0:0A ES OA ES OA 85 24 A2 
92E8:00 BD 00 96 48 30 08 A9 
92F0:BD 20 ED FD 4C 01 93 BD 
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92F8:00 95 
9300:FD 68 
9308: 
9310:20 E3 FD 
9318:D0 A9 23 
9320:8D 29 
9328:BD FF FF 
9330:05 20 9C 
9338:FD E8 4C 
9340:ED FD E8 
9348:FF FF 00 
9350:D0 C6 C4 
9358:AD AO D2 
9360:C3 C8 CS 
9368:D4 C5 D4 
9370:20 
9378:CB AO C3 
9380:A9 AC AC 
9388:CD C5 CD 
9390:C4 C5 C2 D5 
9398:A0 AD A0 
93A0:D2 C5 A0 
93A8:D0 A0 AD 
93B0:C5 A0 C4 
93B8:AC C6 A0 
93C0:D4 C5 A0 
93C8:C4 
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Apple & Minitel 
les caractères semi-graphiques 


L'écriture d'un logiciel destiné au 
Minitel passe presque invariable- 
ment par l'exploitation des 
caractères semi-graphiques ; nous 
vous proposons donc une table 
des codes de ces derniers. 


Chaque caractère semi-graphique 
vidéotex est contenu dans une 
matrice de 8 points (horizontale- 
ment) par 10 points (verticale- 
ment) et est divisé en 6 ‘pavés’ 
élémentaires. L'état — ‘on’ ou 
‘off” — des pavés est déterminé 
par la valeur des bits 0, 1, 2, 3, 4 
et 6 du code de caractère. Aïnsi, 
comme le montre le schéma 
ci-joint, le bit O détermine l'état 
du bloc situé en haut et à gauche, 
le bit 1 détermine l'état du bloc 
situé en haut et à droite, etc. 


Pour passer en mode semi- 
graphique, le Minitel attend le 
code $0E (14). Le mode “‘dis- 
joint”, où les blocs élémentaires 
sont séparés par une ligne, est 
obtenu en envoyant les codes 


$1B et $5A (27 et 90). $1B et 
$59 (27 et 89) retourne au mode 
‘joint’. Enfin, le code $0F (15) 
permet de repasser en mode 
normal ‘texte’. 


OA E 


$20 $21 $22 $23 $24 525 $26 


CLLIECEL 


$28 O$29 $2A $2B $2C $20 $2€ $2F 


el) DE al n 


$30 $31 $32. $353 S$34 535 


TITI. 


55A  $3B $3C S$5D $3E $3F 


ele LiE-L 


$60 $61 562 563 $64 565 566  $67 


HURIPLEL 


$69 $6A $68  $6C $6D $6€ $6F 


JECOLLEE 


$71  $72 473 9574 525 $26  $77 


PCOCTL 


$79 $7a $78 $7c $?0 


Jeu de caractères Télétel Joints 
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Conversions 





HGR + DHGR 


Qu'il est agréable de pouvoir 
disposer du graphisme double 
haute résolution (DHGR) dispo- 
nible sur les Apple //c et //e 
équipés d'au moins 128K ! 


Encore faut-il pouvoir l'utiliser à 
sa guise : en effet, seuls quelques 
logiciels (par exemple Dazzle 
Draw ou Extasie) permettent de 
manipuler le DHGR. 


Malheureusement, ce sont des 
programmes fermés et on peut 


jusqu'en $5FFF. 


Néanmoins, elles ne peuvent être 
manipulées sans modification par 
votre routine préférée d'impres- 
sion ou votre programme 
Applesoft car, après un BLOAD, 
la page HGR ne contient que les 
octets pairs de l'image pendant 
que la page HGR2 contient tous 
les octets impairs. 


Pour vous en assurer essayez la 
séquence suivante : 





Alexandre Avrane 


traditionnel. Par la suite, il 
suffirait de recoller les deux 
parties pour obtenir à nouveau 
une image DHGR. 


Coup de chance, le module 
DHGR effectue cette conversion ! 
C'est une routine (sans grande 
prétention) qui, chargée en 
$8000, contient deux points 
d'entrée : 


CALL 32768 ($8000) 


être amené face à deux types de  HGR convertit le fichier chargé en deux 
problèmes : BLOAD IMAGE, A$2000 images gauche/droite placées en 
4 : : e CALL -151 HGR et HGR2, c'est à dire 
* vouloir imprimer l'image créée  Coss pour afficher la page BSAVE IMAGE1,A$2000,L$2000 
sur une configuration impri- HGR2 BSAVE IMAGE2,A$4000,L$2000 
mante/interface qui n'a pas Été  Cos4 pour retourner en page CALL 32771 ($8003) 
Dont HGR effectue la conversion inverse 


+ désirer utiliser la souplesse 
d'un langage de program- 
mation (par exemple 
l'Applesoft) pour générer des 
séquences répétitives ; 

° utiliser les fonctions puissantes 
des éditeurs HGR traditionnels 
(tels que MousePaint ou 
Blazing Paddles) sur une 
image DHGR. 


Les images DHGR correspondent 
à une définition de 560 fois 192 
points, alors qu'une image HGR 
standard en contient 280 fois 
192. Elles sont stockées sur 
disque, par les éditeurs 


3D0G pour revenir au Basic 


Le résultat affiché n'a généra- 
lement qu'une ressemblance fort 
vague avec l'image que vous avez 
si patiemment construite avec, par 
exemple, Dazzle Draw... 


Il serait donc de bon ton de 
pouvoir disposer d'une routine 
qui convertisse le résultat pour 
afficher la partie gauche en page 
HGR et la partie droite en page 
HGR2::Ces deux parties 
pourraient alors être imprimées, 
manipulées à votre guise par un 
programme Applesoft, ou 


afin de sauver le résultat sur 
disque, par 

BSAVE IMAGE, A$2000, L$4000 
et sa récupération ultérieure par 
votre éditeur graphique. 


DHGR est indépendant du 
système d'exploitation et pourra 
sans difficulté être utilisé sous 
DOS 3.3, ProDOS ou Pascal. 

Le fichier T.DHGR contient le 
source en Big Mac au format tex- 
te ; le programme DHGR.DEMO 
illustre son utilisation en 
Applesoft. 


graphiques, comme des fichiers sauvegarder sur disque pour être 

débutant à l'adresse $2000 modifiées par un éditeur HGR a: 
Programme OO 

‘ 3 GOT. 

D HG R. D EMO 240 PRINT D$'"BLOAD'"FS$".PIC,A$2000" 

//e 250 REM charge la routine 

100 REM DHGR.DEMO 260 PRINT D$"BLOAD'"F$: REM A$8000 

110 : //e+ 265 VTAB 20: PRINT : PRINT "Image chargé 
120": e": GOSUB 1000 

130 REM Demo d'utilisation de //c 270 REM convertit en 2 images exploitabl 
140 REM DHGR es 

150 : Igs 280 CALL 32768 

160 : 290 PRINT "Image convertie au format HGR 
200 D$ = CHR$ (4):F$ = "DHGR" ": GOSUB 1000 

210 REM passe en graphique 300 REM on va tracer un "X" sur l'image 
220 HGR2 : HGR : PRINT CHR$S (27) CHRS$S ( 310 HCOLOR= 3: REM blanc 

17): REM Esc-Ctrl-Q 315 REM surtout ne pas oublier d'initi 

230 REM si on voulait charger une image 316 REM l'adresse 230 sinon gros bobo... 
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320 POKE 230,32: REM travaille sur HGRI 34 CONV*I LDA VI 

























































330 HPLOT 0,0 TO 279,95: HPLOT 279,96 TO a CP NS Sn Daclalise pd 
36 BCS CONV”"X oui! 
0,191 37 LDX #0 
340 POKE 230,64: REM travaille sur HGR2 38 LDY #0 
350 HPLOT 0,96 TO 279,191: HPLOT 0,95 TO 33 JSR  HPOSN calcule GBASL 
40 PLP 
279,0 ; 41 PHP 
360 PRINT "Image terminée": GOSUB 1000 42 BCS CONV*IA #1 Convert? 
400 REM reconvertit au format DHGR 43 JSR CONV*2A 
410 CALL 32771 # Ron’ 
è 45 BMI CONV”IB = 
412 PRINT "Image reconvertie au format D 46 CONV*1A JSR CONV*2B Jp 
HGR'"': GOSUB 1000 47 JSR CONV*2A 
415 END 48 CONV"1B INC VI ligne suivante 
, ; : 49 BNE CONV”1 =jmp 
420 REM et si on voulait sauver l'image 50 CONV*X  PLP 








430 PRINT D$S"BSAVE"F$".PIC,A$2000,L$4000 51 RTS bye bye 
" ) 52 
440 REM mette L$4000 et non L$S3FF8 pour + FT NÈT RER 
450 REM certains utilitaires DHGR 55 CONV*2A LDY #40-1 40 colonnes par page HGR 
460 END 56 LDX #80-1 80 colonnes par page DHGR 
1000 REM Routine d'affichage CONV?2 pr He 2 se. res 
+ Ge alimente 
1010 PRINT "<1>/<2> affiche HGR1/HGR2": 59 DEX 
PRINT "<Return> continue "; 60 JSR SWAP HGR1 
1020 GET K$: IF K$ = "l" THEN K = PEEK 61 JSR CONV"2C 
(49236) : REM $CO54 : pe 
1030 IF K$ = "2" THEN K = PEEK (49237): 64 BPL CONV'2 
REM $CO055 65 RTS 
1040 IF ASC (K$) = 13 THEN PRINT : RET “a 2 
URN 68 
1050 GOTO 1020 69 CONV*2B LDX #80-1 
70 JSR SWAP HGR2 
: , 71 JSR CONV*3 vide NEWLINE vers HGR2 
Source ‘T.DHGR 72 JSR SWAP  HGRI 
Assembleur Big Mac, format TEXT DOS 3 3 73 JSR CONV"3 vide NEWLINE vers HGRI 
e 74 RTS 
1 RRÉARRRRÉRÉRRRARRRRRRRRRRRR 75 
2 * CONVERSION DHGR/2 HGR * ProDOS DE None 
3 hhhkthtthtéhhétététéét té # # 77 
4 78 CONV"2C LDA (GBASL),Y 
5 * Cette routine convertit des images DHGR 79 PHA 
6 * stockées en un fichier binaire chargé en 80 LDA NEWLINE,X 
7 * $2000 jusqu'en $5FFF, en deux images 81 STA (GBASL),Y 
8 * graphiques (parties gauche & droite) 82 PLA 
* 
ss nel nl à 83 STA NEWLINE,X échange NEWLINE et page HGR 
11 * Deux points d'entrée: pe AT 
12 * CONVERT1 ($8000) pour conversion DHGR -> HGR+HGR2 Ê6 Éonses een 
13 * CONVERT2 (58003) pour conversion HGR+HGR2 -> DHGR 87 
14 
CONV* - 
15 + Modifié: 21/12/86 %. ae DE HE 
16 * Créé: 19/12/86 Fe er 
17 * (C) 1986 Alexandre Avrane 91 DEY 
18 | 
19 GBASL - 526 . ne és 
20 HPAG =  $E6 ss 
21 HPOSN - $F411 EE 
22 
23 CONVERTI = * Entrée DHGR -> 2 HGR “a Se D netes 
Re se 98 EOR #$60 échange vecteurs HGR1 & HGR2 
ee pi a =Jnp 99 STA GBASL+I 
26 CONVERT2 = * Entrée 2 HGR -> DHGR 100 Res 
27 SEC {ba 
28 CONV*0 PHP sauve carry EPP PR 
29 LDA #>$2000 es 
30 STA HPAG page graphique 104 v1 DS 1 
31 LDA #0 g = 
] VE 
32 STA V1 lère ligne 20 RENE 
33 
Récapitulation 8000:18 90 01 38 08 A9 20 85  8040:20 71 80 20 5A 80 CA 88  8O088:A9 98 85 43 AO 00 20 2C 
A 8008:E6 A9 00 8D 78 80 AD 78 8048:10 EF 60 A2 4F 20 71 80  8090:FE AO D6 84 3C AO 83 84 
DHGR' 8010:80 C9 CO BO 1E A2 00 AO 8050:20 67 80 20 71 80 20 67  8098:3D AO D5 84 3E AO 8B 84 
à Ne 8018:00 20 11 F4 28 08 BO 08 8058:80 60 B1 26 48 BD 79 80  8O0A0:3F AO DE 84 43 AO 00 84 
près avoir saisi ce code sous 8020:20 35 80 20 4B 80 30 06 8060:91 26 68 9D 79 80 60 AO  80A8:42 20 2C FE A9 1C 8D 1A 
moniteur, vous le sauvegarderez 8028:20 4B 80 20 35 80 EE 78 8068:27 20 5A 80 CA 88 10 F9  80B0:81 A9 81 8D 1B 81 20 11 
par BSAVE DHGR, 8030:80 DO DB 28 60 AO 27 A2 8070:60 A5 27 49 60 85 27 60 80B8:81 C9 DD FO 06 9D 00 00 


A$8000,L$C9 80 20 5A 80 CA  8078:A9 82 85 3D A9 D6 85 3E  80CO:E8 DO F3 A2 00 20 11 81 


8080:A3 80C8:8D 


8038:4F 
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De l’octet au nibble : 
Kyram 


Ce nouvel utilitaire n'est pas d'un 
usage évident en première 
approche ; garder le manuel du 
DOS 3.3 à portée de la main est 
une sage précaution. C'est dans 
un esprit d'utilisation pratique 
que le mode d'emploi qui suit est 
basé sur l'exemple. 


Il vous permet de lire une 
disquette dont le formatage est 
fantaisiste, de savoir quel 
formatage a été utilisé, de 
protéger vos disquettes. 


Pour lancer KYRAM, faire : 
BRUN KYRAM 


Un message du type : 
L'AMPERSAND EST 
OPERATIONNEL 


doit s'afficher. 


Présentation 
générale 


Le DOS 3.3 ne permet pas 
d'utiliser à 100 % les disquettes, 
l'utilisateur n'ayant accès au 
support magnétique que dans les 
limites de ce que le DOS 3.3 
autorise. Le catalogue DOIT être 
en piste $11, par exemple. 
KYRAM se propose d'ajouter 
quelques commandes au Basic 
afin d'augmenter l'efficacité du 
SED (Système d'Exploitation de 
Disquettes), et de permettre à 
l'utilisateur d'ausculter en détail 
le contenu réel de la disquette. 


Pour ajouter ces commandes, le 
programme exploite l'&. Quand 
l'interpréteur rencontre ce carac- 
tère, il fait un saut à l'adresse 
contenue en $03F5, adresse de 
KYRAM, programme qui ‘rendra 
la main’ au Basic en fin de 
travail. 

Chaque commande est un mot de 
cinq lettres précédé de &, et 
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éventuellement suivi d'une chaîne 
ou d'une variable alphanumérique 
(A$ ou "TOTO" par exemple). 
Toutefois, si vous optez pour la 
solution variable alphanumérique, 
il est bon que l'ordre soit précédé 
d'une affectation de type AS=AS$, 
ceci afin de préparer les routines 
Applesoft utilisées par le pro- 
gramme. 


Note : il est utile d'essayer les 
commandes qui suivent au fur et 
à mesure de leur description. 


Commandes 
générales 


Ces commandes donnent des 
renseignements concernant le 
fonctionnement de KYRAM, les 
paramètres internes du DOS... Il 
s'agit de &QUID!, &DIAGN, 
&COMMS et &LRWTS. 


&QUID! 

Si vous tapez cette commande, 
puis CALL-151 et 320.400, 
divers nombres hexadécimaux 
apparaîtront, nombres qui repré- 
sentent les prologues et épilogues 
des champs adresse et données. 


&DIAGN (DIAGNostique) 
Normalement, le message : 


* KYRAM * PAS D'ERREUR A 
LA DERNIERE COMMANDE 


doit apparaître, vous indiquant 
que la dernière opération sur 
disquette a été menée à bien. 


&COMMS (COMMandeS) 


On demande par cet ordre la liste 
des commandes disponibles. 
Certaines commandes sont 
suivies de ‘_” qui rappelle que 
des paramètres doivent suivre. Si 
vous les ommettiez, vous obtien- 
driez : 
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ERREUR D'OPERANDE 


&LRWTS (Liste RWTS) 


L'écran est effacé et apparaissent 
divers mots et nombres hexadé- 
cimaux dont nous verrons la 
signification plus loin. 


Accès au disque 


La disquette est divisée en 35 
pistes (en principe...), chacune 
étant divisée en 16 secteurs. 


&SECRE (SECtor REad) 


Cet ordre permet de lire un 
secteur. Pour lire le secteur $00 
de la piste $01, il faut taper : 
&SECRE "0001" 

Le secteur est alors lu et écrit en 
mémoire, de l'adresse $2000 à 
l'adresse $20FF. Pour en être 
sûr, &DIAGN doit indiquer que 
tout s'est bien passé. 

&SECRE "OF11" 


commande la lecture du premier 
secteur du catalogue. 


&BUFAS 


Suite logique de la commande 
précédente, affiche sur l'écran le 
secteur qui vient d'être lu (un 
décalage s'affiche au début de 
chaque ligne). 


&SECWR (SECtor WRite) 
Pour écrire un secteur com- 
mençant en $2000, il faut taper : 
&SECWR "0001" 


s'il devait être écrit sur le secteur 
O0 de la piste 1 (Changez de 
disquette avant de tenter 
l'opération). 


&INITD (INIT Disquette) 


Cette commande formatera la 
disquette SANS y mettre de 











catalogue ni de DOS. 


De l'octet au 
nibble 


Avant écriture sur le disque, les 
octets composant le secteur sont 
d'abord codés en nibbles. Ils sont 
à la disquette ce que les octets 
sont à la mémoire. Un lecteur ne 
peut lire et écrire que des nibbles 
et comme il y a moins de 256 
nibbles différents et valables, un 
secteur sur le disque occupe plus 
de 256 nibbles... De plus, 
comme les pistes sont circulaires 
(eh oui !), il faut bien que 
quelque chose indique au lecteur 
où commence le secteur qu'on 
veut lire. 


Pour séparer ses secteurs, le DOS 
3.3 utilise des blocs de nibbles (la 
plupart du temps des $FF) un peu 
spéciaux, des nibbles synchro- 
nisés. 


Pour en écrire un sur la disquette, 
le DOS utilise des routines dans 
lesquelles le temps d'exécution 
est primordial, et il ne sera pas 
écrit exactement comme les autres 
nibbles. Ainsi, les secteurs seront 
séparés. 


Il faut maintenant que le lecteur 
trouve le secteur XX sur cette 
piste : le DOS 3.3 lit les premiers 
nibbles après les nibbles synchro- 
nisés et il recherche une série du 
type DS AA 96 (ces nibbles sont 
réservés, c'est-à-dire qu'on ne 
peut pas trouver DS dans un 
secteur codé en nibbles). 


Cette série de trois nibbles 
constitue le prologue du champ 
adresse. Prologue parce qu'ils 
marquent le début d'une autre 
série qui indique, codés, le 
numéro de volume, le numéro de 
piste, le numéro de secteur et, 
enfin, un ‘checksum’ : tout ceci 
est le champ adresse. Le 
‘checksum’ est une somme de 
contrôle qui permet à l'ordinateur 
d'être sûr que les différents 
numéros ont été bien lus. Si ce 
n'est pas le cas : 1/0 ERROR, 
après quelques autres tentatives 
bien entendus. 


Huit nibbles après le prologue, 
on trouve DE AA EB, l'épilogue 


du champ adresse. Plus loin, on 
trouve D5 AA AD qui est le 
prologue du champ données : ici 
débute le secteur codé, celui lu 
par &SECRE "..…." (ou presque). 
DE AA EB ferme la marche (c'est 
l'épilogue du champ de données). 
Après, on retrouve une série de 
nibbles synchronisés. 


&RDTRK (ReaD TRacK) 


Pour lire la piste 2 (par exemple) 
sans la décoder, taper : 


&RDTRK "O2" 

puis : 

CALL-151 

puis : 

2000.3F00 (‘freiner’ le listing 


par CTRL-S) et relire ce qui 
précède. 


Pour que le DOS puisse lire un 
secteur, il faut que les valeurs des 
prologues, épilogues et autres 
‘checksum’ correspondent parfai- 
tement avec les valeurs DS AA 
96... sinon il n'y a pas de lecture 
possible. Certains programmes 
indiquent d'où vient l'erreur si 
erreur il y a (A : adresse, D : 
données). D'autres programmes 
essaient de recopier les secteurs 
même s'il manque un AA par 
exemple. 


&MAXPI 


La récupération de 4Ko supplé- 
mentaires sur la disquette (exem- 
ple classique) servira d'exemple. 
Taper : 

&MAWPI "24" 

puis : 

&LRWTS 

puis, avec une disquette vierge, 
INIT HELLO. 


Cette nouvelle disquette comporte 
$24 pistes au lieu de $23. Pour 
utiliser cette place disponible, il 
faut modifier la VTOC (table 
d'occupation du volume) ce qui 
indiquera au DOS les nouveaux 
secteurs accessibles (se reporter 
au manuel DOS pour l'organisa- 
tion de la VTOC). Il faut pour ce 


faire, lire la VTOC : 
&SECRE "0011" 
puis : 


CALL-151 

puis : 

20C0:FF FF 00 00 FF FF 
pour libérer la piste $24, puis : 


2030:12 01 00 00 24 

pour dire au SED qu'il peut 
compter sur une piste de plus. 
Bien sûr, il convient de revenir au 
Basic par Ctrl-C puis d'écrire 
cette VTOC là où on l'a trouvée : 


&SECWR "0011" 
Idée 


Puisque c'est un octet dans la 
VTOC qui indique la position du 
catalogue, pourquoi ne pas 
transférer ce dernier sur cette 
piste $24 ? Comme la plupart des 
copieurs ne copient pas cette 
piste, un double de cette disquette 
ainsi customisée ne serait guère 
utilisable. 


La méthode 


+ formater une disquette $24 
pistes ; 

+ lire la VTOC; 

+ modifier la position du 
catalogue (octet 1 et 2 de la 
VTOC, l'octet O étant inuti- 
lisé, voir annexe C du manuel 
DOS); 

+ réécrire la VTOC; 

+ lire le premier secteur du cata- 
logue en secteur OF, piste $11 
et le réécrire en Secteur $OF, 
Piste $24 ; 

+ idem pour tous les autres 
secteurs de la piste (de $0E à 
$01) ; 

* ne pas oublier de protéger 
dans la VTOC la piste $24 
qui, utilisée par le catalogue, 
n'est plus disponible ; 

* libérer la piste $11, ancien 
catalogue. 


Malgré cette dernière modifica- 
tion, le DOS s'interdira d'écrire à 
la place de l'ancien catalogue. 
Pour l'y forcer, taper : 

&ASAUV 

avant de formater la disquette. 
L'ordre inverse, pour éviter 
d'écrire sur la piste $11 est : 
&PSAUV. 


(&LRWTS vous donne entre autre 
la valeur de SAUI11 : $A9 = le 
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check 
volume piste secteur sum 



















FF FF D6 96 D6 96 DO 96 DE AA EB … DS AA AD … DE AA EB FF FF FF FF 





FF FF D5 AA96 FF FE 



































DOS peut écrire piste $11 ; $69 = 
il ne peut pas) 

Retaper cette liste d'ordres à 
chaque manipulation de disquette 
est fastidieux. Faites-en un 
programme Basic qu'il suffira de 
RUNer.. 


Idée (bis) 


Vous avez ‘deleté” un fichier et 
vous souhaitez le récupérer : 
opération simple s'il n'est pas 
déjà écrasé par un autre fichier. 
Trouver d'abord le secteur du 
catalogue où se trouve votre 
programme : taper 

&SECRE "OF1l" &BUFAS 
&SECRE "OEll" &BUFAS 
&SECRE "OD1l" &BUFAS 
jusqu'à apparition à l'écran du 
nom de votre programme, 
KYRAM par exemple. 

Choisir l'offset le plus près du 
nom : $00. Taper CALL - 151 
puis : 

2000.2020 

réponse : 

2000:00 00 FE O1 04 kk yy 
rr aa mm A0 AO AO..10 

(kk yy rr aa mm représentent les 
codes ASCII de KYRAM) 

A la fin des AO (espaces) vous 
tomberez par exemple sur 10. 

FF indique que le fichier est 
effacé, 10 et 01 indiquent la piste 
et le secteur de début du fichier. 
Remplacer FF par 10 et 10 par 
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Le secteur sur la disquette 





AO puis réécrire le secteur là où 
on l'a trouvé. Sauvegarder le 
fichier retrouvé sur une autre 
disquette ou bien le protéger dans 
la VTOC. 


Pourquoi également ne pas 
modifier les messages d'erreur du 
DOS et, par exemple, remplacer 
l'entête du catalogue (Disk 
Voluime...) par CTRL-D suivi de 
INET HELLO. 


Prologue, 
Epilogue, 
Kyram, 

et protection 


En tapant &COMMS, on constate 
que certains ordres restent 
inconnus. 

&WAPRO permet de modifier le 
prologue champ adresse dans les 
routines d'écriture, par exemple 
&WAPRO "D5 AA 96": le DOS lira 
la piste jusqu'à découvrir ce 
prologue qui lui indique qu'un 
champ adresse suit. 

&RAPRO (comme Read Adress 
PROlogue) fait de même dans les 
routines de lecture. 

Quand le DOS lit un secteur, il 
cherche la valeur de RAPRO et 
quand il écrit, celle de WAPRO. 
Idem pour &RDPRO et &WDPRO qui 
se rapportent au champ données. 
Idem pour &RAEPI, &RDEPI, 
&WAEPI et &DEPI qui concernent 








Champ données (secteur codé en 342 
nibbles pour 256 octets + checksum) 


RTE 1e RE PRR RC RE RP eee Re | 
Octets de Prologue Champ adresse Épilogue Prologue Épilogue 
synchronisation du du du du 
champ champ champ champ 
adresse adresse données données 





Les octets de synchronisation sont en fait constitués de 10 bits (1111111100). La méthode de synchronisation 
et le détail du codage du secteur (méthode 6/2) sont décrits en détail dans Beneath Apple DOS et Beneath 
Apple ProDOS, bibles de l'Applemaniaque… 





l'épilogue. 

Note : il ne faut préciser que deux 
nibbles pour &RAEPI et RDEPI, 
le DOS ne tenant pas compte du 
troisième. 

Par exemple : &RAEPI "DEAA" 
(RAEPI comme Read Adress 
EPllogue). 

&SYNCR "FF", par exemple, 
permet de changer la valeur du 
nibble de synchronisation ce qui 
perturbera sensiblement la plupart 
des copieurs… 


Un exemple 


Créer une disquette pour étudier 
ces commandes, faire : 


&WAPRO"D5BBCC" puis 
INIT HELLO. 


Maintenant, une tentative de 
CATALOG conduit à un 1/0 
ERROR car le DOS cherchait 
comme prologue d'adresse D5 
AA 96 et il ne pouvait trouver que 
DS BB EC. 

Comment lire maintenant ? En 
faisant &RAPRO "D5BBCC" pour 
qu'en lecture le DOS cherche le 
bon prologue. 

Vous pouvez maintenant vous 
servir de cette disquette 
normalement, mais essayez de la 
copier. 


Un problème subsiste 

impossible de booter sur ce 
disque new look. En effet, la 
ROM C6 de l'Apple, solicitée 
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lors du Boot cherche obstinément 
DS AA 96. Avant de lire cette 
disquette, il faut donc charger 
Kyram et modifier les 
paramètres. 


On peut de la même manière 
changer prologue et épilogue. 
Une autre idée serait de protéger 
un programme parmi d'autres : 
sur une disquette normale, 
changer le prologue données de 
façon à avoir DS XX YY 
(écriture) puis sauver votre 
programme par BSAVE OU SAVE. 
Faire alors NEW, &WDPRO'"D5 AA 
DD", &NOPRO, SAVE RIEN, 
DELETE RIEN, &TSTPR. 

&NOPRO demande au DOS 
d'ignorer XX et YY, SAVE et 
DELETE RIEN servent à réécrire le 
catalogue avec le prologue 





normal. 

Un essai de LOAD ou BLOAD du 
programme conduit à un 1/0 
ERROR. Pour le relire, un 
&NOPRO est de rigueur. 


Face à une disquette 
inconnue 


La disquette refuse d'être lue : 
Kyram devrait vous tirer 
d'affaire. Lire une piste avec 
&RDTRK, regarder les valeurs de 
prologue et  d'épilogue. 
Neutraliser le contrôle de 
checksum par &NOCEK. Entrer les 
valeurs de prologue et d'épilogue 
trouvées à l'aide de &RDTRK. 
Essayer un catalogue, ça marche, 
tant mieux. Sinon, il faut trouver 
le catalogue et une boucle en 


Basic utilisant &SECRE et &BUFAS 
rendra service pour trouver un 
secteur qui, de près ou de loin, 
ressemble à une VTOC... 


En conclusion 


Benjamin Franklin disait qu'il 
fallait pouvoir scier avec une lime 
et limer avec une scie. Kyram n'a 
peut-être pas d'applications en 
menuiserie, mais il semble que 
ses possibilités soient très 
étendues, l'imagination en est 
toutefois une limite. Les 
remarques et suggestions 
pourront être transmises à 
l'auteur par l'intermédiaire de la 


IEVUE. | 








Source T.KYRAM ni 
. 56 MOVE EQU $C363 : COPIE DE MEMOIRE PRINC-AUX 
, ‘ L - 
Assembleur BI g Mac # XFER EQU $C3B0 TRANSFERT D'EXECUTION PRINC-AUX 
59 
1% 60 
2 * ÉRRRRRRRRRRÉRRÉRRRRRRÉRARRE 61 Nmmmmmmmmmmmmmmm____ mme mm mu em me meme ee nee eee me eee eee nes 
3 * * * 62 
4 * * KYRAM V2.1 * 63 ORG  $3FFA ORIGINE 
5 * * * 64 
Ur ÉÉLÉLLLLLIILLELSL 1111111211) ED nee per ee ee een eee ee ram sp mms ras a me ns ms es mme ee ere me 
7% 66 
|: Le 67 
9 * G.MENIER (c) 86 STG 68 JSR DEBUT ;PRESENTE+ VECTORISE 6#RETOUR AUX 
10 * 69 JMP  $D43C ;RETOUR AU BASIC (CMDLOOP) 
11 * >PROGRAMME DE MODIFICATION DES PARAMETRES INTERNES DU DOS 70 
12 * QUI PERMET, PAR EXEMPLE: 71 
13% mm 72 KYRAMP LDA $400 “SAUVEGARDE DES 2 1ER CARACTERES 
14 * L'UTILISATION DES MEMOIRES AUXILIAIRE (CARTE 80 COL) 73 STA  SAUVI ;DE L'ECRAN 
15 * L'UTILISATION DES ROUTINES RWTS. 74 LDA $401 ;POUR AFFICHER 'KY' 
16 * LA MODIFICATION DES PARAMETRES INTERNES DU DOS 25 STA  SAUV2 
17 * LA CREATION DE DISKETTES FORMATTEES À VOLONTE 76 LDA #'K" ;ON AFFICHE 'KY' 
18 * LA RELECTURE DE PROGRAMME SUR CES DISKETTES 77 STA 5400 
LL rer rnr ere Patio atome suce ETC 78 LDA #'Y' 
20 * 79 STA $401 
210N 80 
22 ne 81 JSR GETLINE  :COPIE DU BUFFER $200 EN BUFFIN 
23 * PLAN PROGRAMME: - COPIE DU BUFFER BASIC (EN $200) DANS 82 JSR LOOPPRIN  ;RECHERCHE DU MOT 
24 * UN BUFFER EN $300 83 
25 * — RECHERCHE DU MOT DANS UNE TABLE:LES 84 LDA  SAUVI {ON REMET LES 2 CARACTERES ECRAN 
26 * MOTS FONT 5 LETTRES.UNE ERREUR CONDUIT 85 STA  $400 
CAE À "*KYRAM* ERREUR DE SYNTAXE." 86 LDA  SAUV2 ;LA OU ON LES À TROUVE... 
28 * - SINON BRANCHEMENT DIRECTEMENT AU MOT 87 STA 5401 
29 »* No. COMPT. se 
30 * - ON UTILISE POUR LE PASSAGE DE 89 
cs ARR PARAMETRE, LES SP "DECODE.CONVERT.." 90 TEST LDA #COMMANDE ;ON INITIALISE LE DEBUT DE LA 
LR re me s1 STA SIA :LISTE DES COMMANDES 
92 LDA #/COMMANDE ; POUR SAUTER EN INDIRECT 
34 * - TABLE DES SYMBOLES — 
35 » 93 STA $1B ; 
36 PASSE  EQU $06 ;SERT COMME OCTET DE PASSAGE 34 
37 SECONDE EQU $07 ;CONTIENT LA POSITION DE " No.2 35 LDA) COMPT AE UENOR Lt ES 
38 BUFFIN EQU $08 :POSITION DU BUFFER DE KYRAM 96 CMP #40 Fans 
39 VALTYP EQU $11 ; CONTIENT LE TYPE DE LA VARIABLE 97 BCS NON CEA NATURE ENLERRER 
40 voc EQU $18 :SERT POUR LA RECHERCHE DU MOT 98 
41 COMPT  EQU $CE : CONTIENT LE No.DU MOT TROUVE 93 ASL ;A*2 
42 SAUVI EQU $1E :DIVERS 100 CEC ; 
43 SAUV2  EQU $1F : (VOUS AVEZ DIS VERT ?) 101 AP CN COMES) ni 
44 AIL EQU $3C :UTILISES PAR CERTAIN SP MONITEURS 102 CLC És 
45 A1H EQU $3D 103 ADC SIA ; ON PREPARE LE SAUT / No. 
46 21 EQU $3E 104 BNE PASADJ :SI > 255 ON AJUSTE LE TIR 
47 224 EQU $3F 105 INC $1B ; ADRESSE HAUTE 
48 AUL EQU  $42 106 PASADJ STA SIA : 
49 A4H EQU $43 107 
50 108 
51 STROUT EQU $DB3A : SORTIE ECRAN DU TXT POINTE /Yé À 109 JM ($1A) FONLSAUTE AT EAN COMMANDE 
52 CHRGET EQU $B1 110 
53 PRBYTE EQU $FDDA ; SORTIE ECRAN DE À EN HEXA 111 NON JMP  ERROR RNNERRES 
112 


54 MYSEEK EQU $BESA “ROUTINE DOS:POSITION DE LA TETE 


M 
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Les commandes de Kyram 


— passage de paramètres 

L lecture 

E écriture 

les exemples sont les valeurs normales des paramètres 





&GCOMMS affiche la liste des commandes 
GLRWTS affiche les paramètres modifiables du DOS 
L  &CHKSU provoque le contrôle du checksum en lecture (CHKSUM = 01) 
L  &G&NOCHK rend inopérant ce test (CHKSUM = 00) 
LOAGTSIER provoque le test des 2 derniers nibbles du prologue DATA lecture 
L  &NOPRO ne teste que le premier nibble du prologue DATA lecture 
E- &WAPRO modifie le prologue adresse écriture : &SWNAPRO "D5AA96" 
E - &WDPRO modifie prologue DATA écriture : &WDPRO "D5AAAD" 
E - &WAEPI modifie épilogue adresse écriture : &WAEPI "DEAAEB" 
E - &WDEPI modifie épilogue DATA écriture : &WDEPI "DEAAEB" 
L - &RAPRO modifie le prologue adresse lecture : &RAPRO "D5AA96" 
L - &RDPRO modifie le prologue DATA lecture : &RDPRO "D5AAAD" 
L - &RAEPI modifie le prologue adresse lecture : &RAEPI "DEAA" 
L - &RDEPI modifie le prologue DATA lecture : &RDEPI "DEAA" 
E — &SYNCR modifie le nibble synchro formatage : &SYNCR "FF" 
E - &MAXPI nb maxi de pistes formatées : &MAXPI "23" 
E - &MAXSE nb maxi de secteurs formatées : &MAXSE "OF" 
LE- &VTSET position de VTOC : &VTSET "1100" ("ppss") 
E &GASAUV permet l'écriture sur la piste $11 SAUII vaut A9 
E &PSAUV l'empêche SAUII vaut 69 
&QUID! en $320 : prologues, épilogues, sync, VTOC 
L- &RDTRK lit la piste de $2000 à $3F00 : &RDTRK "01" 
&RESET Ctrl-Reset = Boot 
&NRESE Ctrl-Reset # Boot 
L - &SECRE lit un secteur &SECRE "0001" ("sspp") résultat en $2000 
E- &SECWR écrit un secteur &SECWR "0001" ("sspp") écriture de $2000 
E  &GINITD formate le disque sans DOS ni VTOC ni catalogue 
&BUFAS affiche $FF caractères en format TEXT à partir de $2000 (avec offset) 
&DIAGN dernière erreur sur Kyram. Code d'erreur en $300 
&KYRAM est branché 
- GAMOVE transfert de xxxx à yyyy vers zzzz en mémoire auxiliaire : 
&AMOVE "xxxxyyyy2zzz" 
- &PMOVE transfert de xxxx à yyyy vers zzzz en mémoire principale : 
GPMOVE "xxxxyyyyzzzz" 


&GAEXEC transfert d'exécution vers mémoire auxiliaire 
GPEXEC transfert d'exécution vers mémoire principale 
&RETPR laisse en $320 adresse de retour vers mémoire principale 


&RETAU laisse en $320 adresse de retour vers mémoire auxiliaire 


DIT ee 123 UMP  MOTH :WDPRO: À! DA PROLOG ( " ) 
114 124 JMP MOTI ;WAEPI: ‘ AD EPILOG ( ‘ ) 
15 125 JMP MOT] :NDEPI: DA EPILOG ( ‘ }) 
116 COMMANDE JMP  MOTA : COMMS: LISTE DES COMMANDES 126 JMP  MOTK ;RAPRO: |‘ AD PROLOG (LECTU) 
117 JMP  MOTB : LRWTS: LISTE DES PARAMETRES 127 JMP MOTL :RDPRO: ! DA PROLOG ( ‘ }) 
118 JMP  MOTC ; CHKSU:TESTE LE CHEKSUM ADRESSE 128 JMP  MOTM ;RAEPI: " AD EPILOG ( ‘ ) 
119 JMP  MOTD ;NOCHK:N'EN TIENT PAS COMPTE 129 JMP  MOTN *RDEPI: ©! DA EPILOG ( ! }) 
120 JMP  MOTE *TSTPR:TESTE LE PROLOG DATA 130 JMP MOTO ; SYNCR:MODIFIE NIBBLE SYNCHRO 
121 JMP  MOTF ;NOPRO:NE TESTE QUE LE 1ER (DS) 131 JMP MOTP : MAXPI:AU FORMATAGE: NB PISTES 
122 JUMP  MOTG :WAPRO:MODIFIE AD PROLOG (ECRIT) 132 JUMP  MOTQ ; MAXSE: NB SECTEURS 
l o 
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133 
134 
135 
136 
137 
138 
139 
140 
141 

142 

143 
144 

145 
146 
147 
148 
149 
150 
151 

152 

153 
154 
155 
156 
157 
158 
159 
160 
161 

162 
163 
164 
165 
166 
167 
168 
169 

170 

Li 

172 
173 
174 

175 

176 
177 
178 
179 

180 
181 

182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
203 
210 
211 

212 
213 
214 

215 
216 
217 
218 
219 
220 
221 

222 
223 
224 

225 

226 
227 
228 


CE 


I10B 
TRK 
STR 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


COM 
ERR 


CARU 





MOTR 
MOTS 
MOTT 
MOTU 
MOTV 
MOTW 
MOTX 
MOTY 
MOTB1 
MOTZ 
MOTA1 
MOTC1 
KYRAM 
AMOV 
PMOV 
AEXE 
PEXE 
RETP 
RETA 


01600100 
00 

00 

C240 
0020 
0000 

00 

00 
006001 
0001EFD8 


«VTSET:POSITION DE VTOC 
#ASAUV:PERMET ECRITURE TRK 11 

+ PSAUV : L'EMPECHE 

#QUID!:LAISSE EN $320 HEAD+VTOC 

; RDTRK:LIRE EN $2000 LA PISTE N 
*RESET:VECTORISE VERS BOOT 

;NRESE :PAS DE BOOT SI RESET 
/SECRE:LIRE UN SECTEUR (#"S.T.") 

+ SECHR : ECRIRE 4 : 
;INITD:INIT SANS DOS SANS CATALOG 
;BUFAS:AFFICHE $2000 EN FORMAT TXT 
;DIAGN:AFFI. ERR/SECRE&SECWR& INITD 
: KYRAM:VECTORISE L'AMPERSAND 

:SP DU Ile TRANSFERT DE MEV -> AUX 
:SP DU Ile TRANSFERT DE MEV -> PRI 
;:SP DU Ile TRANSFERT EXEC -> AUX 
;SP DU Ile TRANSFERT EXEC -> PRIN 
*LAISSE EN $320 BILLET DE RET PRIN 
‘LAISSE EN $320 BILLET DE RET AUXI 


+-> No DE PISTE 

:-> No DE SECTEUR 

;-> TABLE CARACTERISTIQUES UNITEE 
“BUFFER D'ENVOIS 


‘ COMMANDE (00,01,02,04) 
CONTIENT ERR SI INDIC P A 1 


; TABLE DES CARACTERISTIQUES 


Rs oo ee ce 0 0 0 


MOTA JSR 
LDA 
LDY 


JSR 


LDA 


MOTB 


$FC58 
#KY 
#/KY 
STROUT 


#CMD 
#/CMD 
STROUT 


#cMD1 
#/CMD1 
STROUT 


#CMD2 
#/CMD2 
STROUT 


$FC58 
#KY 
#/KY 
STROUT 


#ADREAD 
#/ADREAD 
STROUT 


$B955 
PRBYTE 
$B95F 
PRBYTE 
$B96A 
PRBYTE 
FINC 
$B991 
PRBYTE 
$B99B 
PRBYTE 
CHD 
$B8E7 
PRBYTE 
$B8F1 
PRBYTE 
$B8rC 
PRBYTE 


FINC 
$B935 
PRBYTE 
$B93F 
PRBYTE 


#ADWRITE 
#/ADWRITE 
STROUT 


$BC7A 
PRBYTE 
$BC7F 


: HOME 
AFFICHE TITRE *KYRAM* 


‘ 


; AFFICHE L'ECRAN COMMANDES 


‘ 


‘ 


RETOUR PRG D'APPEL 
; HOME 
“AFFICHE *KYRAM* 


AFFICHE "READ SYS..." 


ON VA CHERCHER READ ADD PROLOG 
“ON L'AFFICHE 

: , 
# Li 


‘ 


:ON AFFICHE "FIN DE CHAM:" 
“ET ON AFFICHE 

“LE READ ADD EPILOG 

ON AFFICHE "CHAMP DONNEES:" 
“ET ON L'AFFICHE 


4MEME CHOSE POUR "FIN DE CHAMP:" 


“ON REFAIT TOUT CA AVEC 
“ "WRITE SYSTEM:..." 


229 
230 
231 

232 

233 
234 
235 

236 
237 
238 

239 

240 
241 

242 

243 
244 

245 
246 
247 

248 
249 
250 
251 

252 
253 
254 
255 

256 

257 
258 
259 
260 
261 

262 

263 
264 
265 
266 

267 

268 
269 
270 
271 

272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 

285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 

302 
303 
304 
305 
306 
307 
308 
309 
310 
311 

312 
313 
314 
315 
316 
317 
318 
319 
320 
321 

322 
323 
324 


QUI 


OUAIS 


PRBYTE 
$BC84 
PRBYTE 
FINC 
SBCAE 
PRBYTE 
$BCB3 
PRBYTE 
$BCB8 
PRBYTE 


CHD 
$B853 
PRBYTE 
$B858 
PRBYTE 
$B85D 
PRBYTE 


FINC 
$B89E 
PRBYTE 
$B8A3 
PRBYTE 
S$B8A8 
PRBYTE 


#CHKSUM 
#/CHKSUM 
STROUT 
$B92E 
#01 ‘ 

1513 SI L'OCT CHERCHE À 13 (BNE L+13) 
OUI {ON ECRIT "OUI" 

#00 # SINON "NON" 

PRBYTE AFFICHE À EN HEXAA 


‘ "CHEKSUM: " 


#ADRTST IDEM AVEC TEST DE L'EPILOG DATA 
#/ADRTST 


STROUT 


$B8F3 
#01 
#$F2 
OUAIS 
#00 
PRBYTE “PRT À 

;ON AFFICHE OCTET SAUVEGARDE DE LA 
PISTE 11 

{ 69=>PROTEGE A9=>NON PROTEGE 


#SAUVE 
#/SAUVE 
STROUT 
$B292 
PRBYTE 
#SYNC ON AFFICHE LE NIBBLE DE SYNCHRO 
#/SYNC 


STROUT 
$BC60 
PRBYTE 


#NBPISTES 
#/NBPISTES 
STROUT 
$BEFE 
PRBYTE 
#NBSECT 
#/NBSECT 
STROUT 
$BF2A 
PRBYTE 


“ON AFFICHE LE NB MAXI DE PISTES 


‘ON ECRIT LE NB MAXI DE SECTEURS 
EN CE QUI CONCERNE FORMAT. 


#VTOC 
#/VTOC 
STROUT 
$ACO1 
PRBYTE 
# SECTEUR 
#/SECTEUR 
STROUT 
$B00D 
PRBYTE 
#TRKC 
#/TRKC 
STROUT 
$AA73 
PRBYTE 
$AA72 
PRBYTE 
#LD 
#/LD 
STROUT 
$AA61 
PRBYTE 
$AA60 


# VOILA LA POSITION DE VTOC 


;ON AFFICHE L'ADD DU + RECENT PRG 


#.+..ET SA LONGUEUR. 
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325 JSR PRBYTE 
326 LDA 4#4CTRK 
327 LDY #/CTRK 
328 JSR STROUT 
329 LDA TRK 

330 JSR PRBYTE 
331 LDA  #DTRK 
332 LDY #/DTRK 
333 JSR  STROUT 
334 LDA $3E7 
335 STA $06 

336 LDA $3E8 
337 STA $07 

338 LDY #$00 
339 LDA ($06),Y 
340 STA $lA 

341 INY 

342 LDA ($06),Y 
343 STA $1B 

344 LDY 4#504 
345 LDA ($1A),Y 
346 

347 JSR PRBYTE 
348 LDA  #DOTTED 
349 LDY 4#/DOTTED 
350 JSR  STROUT 
351 

352 RTS 

353 MOTC LDA 4#$13 
354 STA $B92E 
355 RTS 

356 MOTD LDA #$00 
357 STA $B92E 
358 RTS 

359 MOTE LDA #$F2 
360 STA $B8F3 
361 LDA #$E7 

362 STA $B8FE 
363 RTS 

364 MOTF LDA 4500 
365 STA $B8F3 
366 STA $B&FE 
367 RTS 

368 MOTG LDA #$0C 
369 STA SECONDE 
370 JSR  SAUVEG 
371 JSR DECODE 
372 JSR  CONVERT 
373 STA $BC7A 
374 JSR  CONVERT 
375 STA $BC?7F 
376 JSR  CONVERT 
377 STA $BC84 
378 JSR RESTORE 
379 RTS 

380 MOTH LDA #$0C 
381 STA SECONDE 
382 JSR  SAUVEG 
383 JSR DECODE 
384 JSR CONVERT 
385 STA $B853 
386 JSR  CONVERT 
387 STA $B858 
388 JSR CONVERT 
389 STA $B85D 
390 JSR RESTORE 
391 RTS 

392 MOTI LDA 4#$0C 
393 STA SECONDE 
394 JSR  SAUVEG 
395 JSR DECODE 
396 JSR  CONVERT 
397 STA S$BCAE 
398 JSR CONVERT 
399 STA $BCB3 
400 JSR CONVERT 
401 STA $BCB8 
402 JSR RESTORE 
403 RTS 

404 MOTJ LDA #$0C 
405 STA SECONDE 
406 JSR  SAUVEG 
407 JSR DECODE 
408 JSR CONVERT 
409 STA $B89E 
410 JSR CONVERT 
411 STA $B8A3 
412 JSR  CONVERT 
413 STA $B8A8 
414 JSR RESTORE 
415 RTS 

416 MOTK LDA #$0C 
417 STA SECONDE 
418 JSR  SAUVEG 
419 JSR  DECODE 


CONVERT 


; TRACK COURANT POUR KYRAM 


#...ET AUSI POUR LE DOS. 


‘PAS MARRANT À TROUVER :3E7-3E8 
“CONTIENT UNE ADRESSE QUI 
MEME L'ADRESSE DU DEBUT DE IOB ? 


‘ 


z 


:TRK C'EST LE 4IEME DE IOB 


“ON TRACE UNE LIGNE. 


“OBLIGE LE DOS À TESTER CHEKSUM 
; PERMET LES ERREURS SUR CHKSUM 


“PAS D'ERR SUR LE PROLOG DATA 


/ LES ERR PASSENT À TRAVERS 


ON VEUT 3 OCTETS EN ENTREE 
#S(1ER")+6(3*2)+1=$0C 

: SAUVE $B8 $B9 EN VUE D'UN RET BAS 
“INITIALISE:"DEAA95"? OU A$? 

“LE 1ER TROUVE EST PLACE DS À 

“ON STOCKE 

‘LE 2ND EST PLACE DANS À 

ETC 


CF MOTG 


«CF MOTG 


‘CF MOTG 


“ RAPRO 


421 
422 
423 
424 
425 
426 
427 
428 MOTL 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 MOTM 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 MOTN 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 MOTO 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 MOTP 
474 
475 
476 
477 
478 
479 
480 
481 
482 MOTQ 
483 
484 
485 
486 
487 
488 
489 
490 
491 MOTR 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 MOTS 
503 
504 
505 
506 MOTT 
507 
508 
509 
510 MOTU 
511 
512 
513 
514 
515 


$B955 
CONVERT 
$B95F 
CONVERT 
$B96A 
RESTORE 


#$0c 
SECONDE 
SAUVEG 
DECODE 
CONVERT 
$B8E7 
CONVERT 
$B&r1 
CONVERT 
$B8FC 
RESTORE 


#50A 
SECONDE 
SAUVEG 
DECIDE 
CONVERT 
$B991 
CONVERT 
$B99B 
RESTORE 


#$50A 
SECONDE 
SAUVEG 
DECODE 
CONVERT 
$B935 
CONVERT 
$B93F 
RESTORE 


+508 
SECONDE 
SAUVEG 
DECODE 
CONVERT 
$BC60 
$B83E 
RESTORE 


4508 
SECONDE 
SAUVEG 
DECODE 
CONVERT 
$BEFE 
RESTORE 


#508 
SECONDE 
SAUVEG 
DECODE 
CONVERT 
$BF2A 
RESTORE 


#$0A 
SECONDE 
SAUVEG 
DECODE 
CONVERT 
$ACO1 
CONVERT 
$BO0D 
RESTORE 


#$A9 
$B292 


#$69 
$B292 


$BC7A 
$320 
$BC7F 
$321 


4 RDPRO 


‘RAEPI 


: RDEPI 


; IDEM AVEC 1 OCTET POUR SYNCR 
#SYNCR 


‘ MAXPI 


/ MAXSE 


# VTOCSET 


“PISTE 


# SECTEUR 


‘ON MODIFIE LE DOS (PISTE 11) 
#ANTI 
+ TESTDOS 


* RETABL 
“TEST 


+QUID! TRANSFERT D'OCTETS -> $320 
ON TROUVE LES PROLOGUES EPILOGUES 
DE READ ET WRITE + SYNCR ET VTOC 
“PISTE EN TETE 



























































517 STA $322 613 STA $9E37 



























































518 LDA $BCAE 614 RTS 
519 STA $323 615 

520 LDA $BCB3 616 MOTX 

521 STA $324 617 LDA 4$38 ; NORESET 

522 LDA $BCB8 618 STA $3F4 

523 STA $325 619 LDA #$A5 

524 620 STA  $9E37 ;PAS DE BOOT SI RESET 
525 LDA $B853 621 RTS 

526 STA $326 622 

527 LDA $B858 623 MOTY 

528 STA $327 624 LDA 4#$01 ; COMMANDE POUR READ 
529 LDA $B85D 625 STA COM 

530 STA $328 626 JSR RWTS ;ON UTILISE RWTS 

531 LDA $B89E 627 JSR  RESTORE 

532 STA $329 628 RTS 

533 LDA $B8A3 629 RWTS LDA 4#$0A :2 PARAMETRES 

534 STA $32A 630 STA SECONDE ; MAIS *PISTE EN TETE* 
535 LDA $B8A8 631 JSR  SAUVEG 

536 STA $32B 632 JSR DECODE 

537 633 JSR  CONVERT 

538 634 

539 635 STA STR ; LE 1ER C'EST SECTEUR 
540 636 PIST JSR  CONVERT 

541 LDA $B955 637 STA TRK ; LE 2ND TRACK 

542 STA  $32C 638 

543 LDA $B95F 639 LDA 4#$00 

544 STA $32D 640 STA ERR ; COMME CA SI ERR<>00 Y À ERREUR 
545 LDA $B96A 641 

546 STA $32E 642 

547 LDA $B991 643 GO LDA 4#/I0B 

548 STA $32F 644 LDY 4#10B :RNTS 

549 LDA $B99B 645 JSR $3D9 {ON SAUTE AUX VRAIS RNWTS. 
550 STA $330 646 RTS 

551 647 

552 LDA $B8E7 648 MOTZ LDA 4#$04 

553 STA $331 649 STA COM ; FORMATTAGE SANS DOS SANS CATALOG 
554 LDA $B8F1 650 JM Go 

555 STA $332 651 

556 LDA $B8FC 652 MOTAI NOP ;BUFAS:BUFFER $2000 DE IOB EN ASCII 
557 STA $333 653 LDA 4$00 

558 LDA $B935 654 STA $1A 

559 STA $334 655 LDA 4#$20 

560 LDA $B93F 656 STA $1B ;ADRESSE DE DEPART 
561 STA $335 657 LDA #$00 : PASSE 

562 658 STA PASSE 

563 LDA $B83E 659 

564 STA $336 : SYNC 660 JP LDA PASSE 

565 661 JSR PRBYTE 

566 LDA $ACO1 : VTPI 662 LDA #"-" 

567 STA $337 663 JSR  $FDFO :AFFICHE À 

568 LDA $B00D 664 LDY #00 

569 STA $338 ; VTSEC 665 LOOP] LDA ($1A),Y 

570 RTS 666 USR $FDFO 

571 667 INY 

572 668 CPY #32 ;ON FAIT 32 CARACTERES 
573 MOTV 669 BNE LOOP1 

574 LDA #$08 ;READ TRK : 1 PARAMETRE 670 JSR  $FC62 ; CR 

575 STA SECONDE 671 LDA #32 

576 JSR  SAUVEG 672 cLC 

577 673 ADC $1A 

578 JSR DECODE 674 STA  $lA 

579 675 STA PASSE 

580 LDA 4#$00 676 CMP  #$00 ;POUR 255 CARACTERES 
581 STA COM ; ON MET LE DISK EN MARCHE 677 BNE JP : LIGNE SUIVANTE 

582 JSR PIST 678 

583 679 JSR  $FC62 :CR 

584 LDA TRK ;1)L'ENVOYER EN PISTE N 680 

585 JSR MYSEEK ;C'EST FAIT. 681 RTS 

586 682 

587 LDA #$00 ;2) MAINTENANT ON VA LIRE NIBBLES 683 

588 STA  IM#1 ;ET LES STOCKER DE $2000 À $3FFF. 684 MOTB] 

589 LDA #$20 685 LDA 4#$02 :ON ECRIS LE BUFFER 
590 STA IM+2 686 STA COM 

591 LDY #$00 ;IM+1 CONTIENT ADRESSE STOCKAGE 687 JSR RNWTS 

592 688 JSR  RESTORE :WRITE 

593 LDX #$60 :NB SLOT*16 689 RTS 

594 LDA $CO8E,X ; STROBE LECTURE 690 

595 TRKR LDA $CO8C,X :LIS NIIBLE 691 MOTCI LDA ERR ;ON REGARDE SI ERR<>0 
596 BPL TRKR :TANT QU'IL N'EST PAS BON... 692 STA $300 ;AU PASSAGE ON LA LAISSE EN $300 
597 IM STA  $2000 ; STOCKE 693 CMP #500 

598 INC IM#1 ;ON BALADE LE POINTEUR 694 BNE ERREUR :SI OUI ON L'AFFICHE 
599 BNE  TRKR 695 LDA  #NONP ;SI NON... 

600 INC IM+2 696 LDY 4#/NONP 

601 LDA IM+2 697 JSR  STROUT 

602 CMP #$3F ;ON STOPPE EN $3F00 698 RTS 

603 BNE  TRKR 699 ERREUR CMP #$10 

604 700 BNE VOLUME 

605 LDA $CO88,X ;ON ARRETTE TOUT ! DISK:STOP! 701 LDA 4#WP 

606 JSR RESTORE ;ON RECUP. TXTPTR 702 LDY #/WP 

607 703 JSR STROUT 

608 RTS FINI. 704 RTS 

609 MOTW 705 VOLUME CMP #520 

610 LDA 4#$00 ‘ON VECTORISE RESET EN RAM 706 BNE BIZA 

611 STA $3F4 707 LDA #VOL 







“ET DS LE DOS SUR BOOT 
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703 
710 
711 
712 
713 
714 
715 
716 
F7 
718 
719 
720 
721 

722 
723 
724 
725 
726 

727 
728 
729 
730 
731 

732 
733 
734 
735 
736 

737 
738 
739 
740 
741 

742 

743 
744 
745 
746 
747 

748 
749 
750 
751 

752 

753 
754 
755 
756 
757 

758 
759 

760 
761 

762 
763 
764 
765 
766 
767 
768 
769 

770 
771 

772 
773 
774 

775 
776 
777 
778 
779 

780 
781 

782 
783 
784 

785 
786 
787 

788 
789 
790 

791 

792 
793 
754 
795 
796 
797 
798 
799 
800 
801 

802 
803 
804 


BIZA 


RTWA 


CAALORS 


KYRAM 


AMOV 


PMOV 


AEXE 


PEXE 


STROUT 
#$40 
RTWA 
#B1Z 
#/81Z 
STROUT 


#580 
CAALORS 
#RTW 
#/RTW 
STROUT 


#CA 
#/CA 
STROUT 


#KYRAMP 
$3F6 
#/KYRAMP 
$3F7 


#KYM 
#/KYM 
STROUT 


$co07 
#512 
SECONDE 
SAUVEG 
DECODE 


CONVERT 
AH 
CONVERT 
AIL 


CONVERT 
A2H 
CONVERT 
A2L 


CONVERT 
A4H 
CONVERT 
A4L 


“ON AFFICHE "KYRAM OK" 
“ET ON VECTORISE VERS LE DEBUT 


“ON VA UTILISER $C100 MEM 
‘6 PARAMETRES 


+ PTFORT 


“PTFAIBLE :ADD 


:FIN (PTFORT) 


+ (PTFAIBLE) 


/MEV PRINCIPALE VERS AUXI 


MOVE 
RESTORE 


$co07 
#$512 
SECONDE 
SAUVEG 
DECODE 


CONVERT 
AIH 
CONVERT 
A1L 


CONVERT 
A2H 
CONVERT 
A2L 


CONVERT 
A4H 
CONVERT 
A4L 


Pom's n° 29 
ET __< 


“MEME TRAFFIC QUE PRECED. 


: VERS MEMOIRE PRINCIPALE 


*MEM $C100 
“RECUPERE L'ENTREE À CHAUD DU DOS 


‘ON MET L'INDIC V À 1 


C'EST PARTI... 


805 
806 
807 
808 
809 
810 

811 

812 
813 
814 
815 
816 
817 
818 

819 
820 
821 

822 
823 
824 

825 
826 

827 
828 

829 
830 
831 

832 

833 
834 
835 
836 
837 
838 
839 
840 
841 

842 
843 

844 

845 
846 
847 
848 
849 
850 

851 

852 
853 
854 
855 
856 
857 
858 
859 
860 
861 

862 
863 
864 
865 
866 
867 

868 
869 

870 
871 

872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
300 


STA 
CLV 
CLC 
JSR 
RTS 


RETP LDXx 
TRANS1 LDA 
STA 
INX 
CPX 
BNE 
RTS 


RETA LDX 
TRANS2 LDA 
STÀ 
INX 
CPX 
BNE 
RTS 


$3EE 


XFER 


#500 
PEXE, X 
$320,X 


#520 
TRANS1 


#500 
AEXE,X 
$320,Xx 


#$520 
TRANS2 


TRANSFERT EN $320 PEXE 


TRANSFERT EN $320 AEXE 


Eos 


* CES ROUTINES PERMETTENT D'ALLER CHERCHER DANS À 
* DES VALEURS DS LE BUFFER (EX "DSAA") OU EN MEV 
* BASIC (EX A$). 


SAUVEG LDA 
STA 
LDA 
STA 
RTS 
RESTORE  LDA 
STA 
LDA 
STA 
RTS 


DECODE LDA 
CLC 
ADC 
LDY 
STA 
STY 


OPERROR JSR 


VARIABLE JSR 


CODE CMP 


HOP CMP 


CONVERT LDY 


$B8 
$1A 
$B9 
$18 


$1A 
$B8 
$1B 
$B9 


BUFFIN 


#505 
BUFFIN+1 
$B8 

$B9 


#505 
(BUFFIN) ,Y 
#$22 
VARIABLE 
SECONDE 
(BUFFIN) ,Y 
#522 
OPERROR 
$B8 


$FBE4 
#OPERRORM 
#/OPERRORM 
STROUT 
$D43C 


CHRGET 


#501 
($83),Y 
$B8 


($83),Y 
$B9 


VALTYP 
#$FF 
OPERROR 


#530 
OPERROR 
#$3A 
HOP 


#$52F 


#541 
OPERROR 
4547 
OPERROR 


#54 
#$00 


($B8),Y 
CODE 


“ON SAUVEGARDE LES POINTEUR 
DU BASIC (TXTPTR) 


‘ON LES REMET OÙ ILS ETAIENT 


‘POSITION DES POINTEURS SUR OCTETS 
*QU'IL FAUT (PARAMETRES) 
{ON SE POSITIONNE APRES LE MOT 


;ON À UNE 1lER " ? 
# NON, CA DOIT ETRE DU X$ 
4N PARAMETRES PLUS LOIN... 


“ON À UNE 2ND " ? 


“NON:ERREUR OPERANDE 
{C'EST BON,ON SE PREPARE À DECODER 


*BEEP 
“ *KYRAM* ERREUR OPERANDE 
BASIC 


/CHERCHE VARIABLE POINTEE PAR ($B8) 


;ON PREND SON ADRESSE... 


SI JAMAIS C'EST PAS UNE CHAINE... 


#+..ON LAISSE TOMBER. | 


A EST UN CHIFFRE ? 
:NI CHIFFRE NI LETTRE:DEHORS! | 


‘ 


C'EST UNE LETTRE 
C'EST UN CHIFFRE ON CODE HEXA 


ENTRE À ET F? 
*EUH, NON... 
“NON PLUS... 


C'EST BON ON CODE HEXA 


‘ON PREND LE 1ER 


;ON LE CODE 
“ON LE MULTIPLIE PAR 16 





21 












909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 

922 
923 
924 
925 
926 
927 
928 
929 
930 
931 

932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
9360 
961 
962 
963 
964 
965 


966 
967 
968 
9369 
970 
971 

972 
973 

974 
975 
976 
977 
978 
979 
980 
981 

982 
983 
984 
985 
9386 
987 
988 
989 
930 
991 
992 
993 
994 
995 
























































JUMP 


RTS 


GETLINE LDA 
STA 
LDA 
STA 


CHARGE 


SAUT 






























PASSE “ON LUI AJOUTE LE SECOND 
$B8 
#502 “ON AJUSTE LES POINTEURS POUR LA 
JUMP “SUITE. 
$B9 
$B8 
‘A CONTIENT LES 2 ASCII EN 1 HEXA 
homme"... 
#500 “ADRESSE BUFFER DE & INTERPRETEUR 
BUFFIN ; 
#$503 : 
BUFFIN+1 ; 
#500 
SAUT 
CHRGET ;POINTE CARACT SUIVANT DS BUF BAS 
“ON UTILISE X COMME INDEX 
#$00 
($B8),Y GET CAR 
#X->Y 


STOP 


LOOPPRIN LDA 


SUIVANT 


ERROR 


‘ 
# 
‘ 


(BUFFIN),Y ; TRANSFERT D'UN CARACTERE 


#53A {SI ":" ALORS ON À FINI 
STOP “C'EST FAIT 
#500 #SI C'EST FIN DE LA LIGNE PAREIL 
CHARGE ON CONTINUE SINON 

: FIN 
#500 ; ON COMMENCE PAR LE MOT No.0 
COMPT 
#LISTEVOC ;OU EST LA LISTE DES MOTS? 
voc 
#/LISTEVOC 
voc+1 
#$00 “ON COMPARE MOT À MOT 

:SI ON UNE<> PASSE AU MOT SUIVANT 
(BUFFIN),Y 
{(VOC),Y 
SUIVANT 
#505 
LOOPA 
voc 
#505 
voc 
voC+1 
#500 
voc+1 
COMT 
COMPT 
#40 ‘MAXI 
NOUVEAU ; ON TESTE UN NOUVEAU MOT. 
$FBE4 ;BIP 
#SNERROR  ;SYNTAX ERROR:BOUM! 
#/SNERROR 
STROUT 
$D43C “APPSOFT 


ee 


4 ICI 


LISTEVOC ASC 


ON À LA LISTE DES MOTS ADMIS 


? COMMSLRWTSCHKSU" 
?NOCHKTSTPRNOPRO' 
{WAPROWDPROWAEPI ! 
*WDEPIRAPRORDPRO' 
*RAEPIRDEPISYNCR' 
‘MAXPIMAXSEVTSET' 





997 
598 
999 
1000 
1001 
1002 
1003 


*ASAUVPSAUVQUID! 
?RDTRKRESETNRESE 
"SECRESECWRINITD' 
*BUFASDIAGNKYRAM' 
*AMOVEPMOVEAEXEC ! 
?PEXECRETPRRETAU' 


2004 ee 


1005 
1006 * 
1007 
1008 FINC 
1009 
1010 
1011 
1012 
1013 
1014 
1015 CHD 
1016 
1017 
1018 
1019 
1020 
1021 OPERRORM 
1022 

1023 

1024 SNERROR 
1025 

1026 

1027 

1028 KkY 
1029 

1030 

1031 

1032 

1033 

1034 

1035 CMD 
1036 

1037 

1038 

1039 

1040 

1041 CM1 
1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 CMD2 
1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 ADREAD 
1061 

1062 


1063 

1064 ADREADI 
1065 

1066 

1067 ADREAD2 
1068 

1069 

1070 ADWRITE 
1071 

1072 

1073 CHKSUM 
1074 

1075 

1076 SYNC 
1077 

1078 

107$ ADRTST 
1080 

1081 

1082 VTOC 
1083 

1084 

1085 PISTE 
1086 

1087 NBSECT 
1088 

1089 SECTEUR 
1090 

1091 NBPISTES 
1092 


LDA 
LDY 
JSR 


RTS 


LDA 
LDY 
JSR 
RTS 


HEX 
ASC 
HEX 
HEX 
ASC 
HEX 


REX 
ASC 


DIVERSES ROUTINES OU DONNEES D'AFFICHAGE 


#ADREADI “AFFICHE "FIN DE CHAMP" 
#/ADREAD1 


STROUT 


#ADREAD2 "CHAMP DONNEES :" 
#/ADREAD2 


STROUT 


“AFFICHE 


8D ; TEXTES D'ERREURS... 
"#*KYRAM* ERREUR D'OPERANDE ." 
00 

8D 
"*KYRAM* 
00 


ERREUR DE SYNTAXE ." 


ÉEPFEFELE LEZ 


Lu * 


KYRAM ?*" 


L LLLELELEELE EL 


“/ &COMMS / &LRWNTS / 6QUID! / 6BUFAS " 


“/ &CHKSU / &NOCHK / 6TSTPR / &6NOPRO " 


8D00 
"/ &WAPRO_ / &WDPRO_ / &WAEPI_ / 6WDEPI_" 
8D 


"/ &RAPRO_ / &RDPRO_ / &RAEPI_ / 6RDEPI_" 
8D 
"/ &SYNCR_ 
8D 


/ 6VTSET_" 
"/ &ASAUV / 

/ 

fe 


SMAXPI_ / 6MAXSE_ / 


&RESET / &NRESE " 
8D00 

"/ &RDTRK_ 
8 

"/ SAMOVE_ 
8 

"/ SRETPR / &RETAU / 
8D 

8D00 

a RWTS-PARAMETRE === " 
8D 

"= READ SYSTEM: CHAMP ADRESSE d" 


00 
8D 
Lu FIN DE CHAMP D" 


&SECRE_ &INITD " 


/ 
&PSAUV / 

/ &SECWR_ / 

7 


&PMOVE_ &AEXEC / &6PEXEC" 


SDIAGN / 5KYRAM" 


vÉ CHAMP DONNEES ù" 
00 

8D8D 

"- WRIT SYSTEM: CHAMP ADRESSE d" 
00 

8D8D 

"- CHEKSUM d" 

00 

8D 

"- SYNCHRO d" 

00 


" PROD ù" 


“- TABLE VTOC PISTEù" 
" PISTEù" 

” MAXSED" 

"  SECTEURÜ" 


"  MAXPId" 
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1093 SAUVE ASC # SAUII1ùd" 
1094 HEX 00 
1095 TRKC HEX 8D 
10396 ASC "- PRG COURANT A$ù" 
1097 HEX 00 
1098 LD ASC " L$ù" 
1099 HEX 00 
1100 CTRK HEX 8D 
1101 ASC "- TRK COURANT KYRAM" 
1102 HEX 00 
1103 DTRK ASC " DOSù" 
1104 HEX 00 
1105 DOTTED HEX  8D 
1106 ASC 
1107 HEX 00 
1108 NONP ASC "*KYRAM* PAS D'ERREUR À LA DERNIERE CMD." 
1109 HEX 8D00 
1110 VOL ASC "*KYRAM* ERREUR CONCERNANT LE VOLUME." 
1111 HEX 8D00 
1112 BIZ ASC "*KYRAM* ERREUR CONCERNANT LE LECTEUR." 
1113 HEX 8D00 
1114 RTW ASC "*KYRAM* RWTS NE PEUT LIRE PROLOG&EPILOG." 
Lis HEX 8D00 
1116 CA ASC "*KYRAM* CODE NON HOMOLOG DOS/PRG <> G" 
1117 HEX 8D00 
T4 H H 4140- 20 3A DB 
Récapitulation hr. de 
KYRAM 4150- 84 BC 20 
k 5 ag 4158- AD AE BC 
Après avoir saisi ce code sous 4160- BC 20 DA 
moniteur, vous le sauvegarderez par 4168- DA FD 20 
BSAVE KYRAM,A$S3FFA,L$D68 4170- 20 DA FD 
3FFA- 20 54 4D 4C 3C D4 4178- FD AD 5D 
4000- AD 00 04 85 1E AD O1 04 4180- kF 47 AD 
4008- 85 1F A9 4B 8D 00 04 A9 4188- AD A3 B8 
4010- 59 8D 01 04 20 E9 46 20 4190- B8 20 DA 
4018- OD 47 A5 1E 8D 00 04 A5 4198- 20 3A DB 
4020- 1F 8D 01 04 A9 45 85 1A 41A0- EO 13 FO 
4028- A9 40 85 1B A5 CE C9 28 41A8- FD A9 16 
4030- B0 10 OA 18 65 CE 18 65 41B0- AE F3 B8 
4038- 1A DO 02 E6 1B 85 1A 6C 41B8- 02 A9 00 
4040- 1A 00 4C 3E 47 4C C6 40 41C0- AO 4B 20 
4048- 4C E6 40 4C 6A 42 4C 70 41C8- 20 DA FD 
4050- 42 4C 76 42 4C 81 42 4C 41D0- 3A DB AD 
4058- 8A 42 4C AA 42 4C CA 42 41D8- A9 55 AO 
4060- 4C EA 42 4C OA 43 4C 2A 41E0- FE BE 20 
4068- 43 4C 4A 43 4C 64 43 4C 41E8- 4B 20 3A 
4070- 7E 43 4C 95 43 4C A9 43 41F0- DA FD A9 
4078- 4C BD 43 4C D7 43 4C DD 41F8- DB AD 01 
4080- 43 4C E3 43 4C 7A 44 4C 4200- 4A A0 4B 
4088- C1 44 4C CC 44 4C D7 44 4208- B0 20 DA 
4090- 4C 45 45 4C 06 45 4C 0E 4210- 20 3A DB 
4098- 45 4C 51 45 4C 9A 45 4C 4218- FD AD 72 
40A0- AC 45 4C DF 45 4C 12 46 4220- 80 A0 4B 
40A8- 4C 2A 46 4C 3F 46 4C 4D 4228- AA 20 DA 
40B0- 46 01 60 01 00 00 00 C2 4230- DA FD A9 
40B8- 40 00 20 00 00 00 00 00 4238- DB AD B5 
40C0- 60 01 00 01 EF D8 20 58 .4240- A0 A0 4B 
40C8- FC A9 49 A0 48 20 3A DB 4248- 03 85 06 
40D0- A9 97 AO 48 20 3A DB A9 4250- A0 00 B1 
40D8- 11 AO 49 20 3A DB A9 B2 4258- 06 85 1B 
40E0- A0 49 20 3A DB 60 20 58 4260- DA FD A9 
40E8- FC A9 49 A0 48 20 3A DB 4268- DB 60 A9 
40F0- A9 52 AO 4A 20 3A DB AD 4270- A9 00 8D 
40F8- 55 B9 20 DA FD AD 5F B9 4278- 8D F3 B8 
4100- 20 DA FD AD 6A B9 20 DA 4280- 60 A9 00 
4108- FD 20 FF 47 AD 91 B9 20 4288- B8 60 A9 
4110- DA FD AD 9B B9 20 DA FD 4290- 46 20 6D 
4118- 20 07 48 AD E7 B8 20 DA 4298- 7A BC 20 
4120- FD AD F1 B8 20 DA FD AD 42A0- 20 C5 46 
4128- FC B8 20 DA FD 20 FF 47 42A8- 46 60 A9 
4130- AD 35 B9 20 DA FD AD 3F 42B0- 46 20 6D 
4138- B9 20 DA FD A9 DA AO 4A 42B8- 53 B8 20 
! o 
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BC 


1118 WP 
1119 
1120 KYM 
1121 
1122 


ASC 
HEX 
HEX 
ASC 
HEX 


1123 Hmmmmmnmnmmmesesszzzezezezzmmezzzzzzzz2222> 


1124 * 
1125 
1126 PRESENT HEX 


1134 DEBUT 
1135 
1136 
1137 
1138 
1139 
1140 


LDY 
JSR 


JSR 
RTS 


FEV T RCE 


7A 
20 
FD 
DA 
AD 
48 
58 
20 
B8 
DA 
A9 
2E 
A9 
4B 
01 
DA 
DB 
09 
BC 
20 
FD 
AD 
A0 
20 
3A 
A9 
73 
20 
3A 
AD 
A0 
20 
3A 
E8 
85 
04 
A0 
8D 
B9 
E7 
Fe] 
85 
20 
46 
84 
85 
20 
46 


DA 
AD 
47 
B3 
20 
B8 
DA 
20 
FD 
A8 
4A 
01 
DA 
DB 
FO 
5E 
B2 
20 
FD 
AD 
A0 
20 
3A 
A9 
0D 
4B 
DA 
A9 
61 
20 
3A 
A9 
E7 
07 
B1 
20 
3A 
60 
F2 
B8 
FE 
5B 
8D 
BC 
64 
5B 
8D 
B8 


HE 


"*KYRAM* LE DISK EST PROTEGE EN ECRITURE." 
8D00 

8D 

“*KYRAM* L'AMPERSAND EST OPERATIONNEL." 
8D00 


8D 

" CÉLLÉLLLLLLLLI LAS 
8D 
"G.MENIER 
8 


" RRÉÉRÉRRRÉRRÉNN 


8D8D00 


86" 


* KYRAM V2.2 * STG" 


$FCS58 
#PRESENT 
#/PRESENT 
STROUT 


+ HOME 


KYRAM 


42C0- 
42C8- 
42D0- 
42D8- 
42E0- 
42E8- 
42F0- 
42F8- 
4300- 
4308- 
4310- 
4318- 
4320- 
4328- 
4330- 
4338- 
4340- 
4348- 
4350- 
4358- 
4360- 
4368- 
4370- 
4378- 
4380- 
4388- 
4390- 
4398- 
43A0- C5 
43A8- 
43B0- 
43B8- 
43C0- 
43C8- 
43D0- 
43D8- 
43E0- 
43E8- 
43F0- 
43F8- 
4400- 
4408- 
4410- 
4418- 
4420- 
4428- 
4430- 
4438- 


53 


A3 
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4AB8- FC 00 8D A0 A0 AO AO A0 4BAO- A0 A0 A0 
4AC0- AO AO AO AO AO AO A0 A0 4BA8- D3 FC 00 
4AC8- A0 A0 C3 C8 C1 CD DO AO 4BB0- AD AD AD 
4AD0- C4 CF CE CE C5 C5 D3 AO 4BB8- AD AD AD 
4AD8- FC 00 8D 8D AD AO D7 D2 4BCO- AD AD AD 
4AE0- C9 D4 AO D3 D9 D3 D4 C5 4BC8- AD AD AD 
4AE8- CD BA A0 C3 C8 C1 CD DO 4BD0- AD AD AD 
4AF0- A0 C1 C4 D2 C5 D3 D3 C5 4BD8- D2 C1 CD 
4AF8- A0 FC OC 8D 8D AD AO C3 4BEO- AO C4 A7 
4B00- C8 C5 CB D3 D5 CD AO FC 4BE8- D2 AO C1 
4B08- 00 8D AD AO D3 D9 CE C3 4BFO- C5 D2 CE 
4B10- C8 D2 CF A0 FC 00 A0 A0 4BF8- C3 CD C4 
4B18- DO D2 CF C4 AO FC 00 8D 4C00- D9 D2 C1 
4B20- AD A0 D4 C1 C2 CC C5 A0 4C08- D2 C5 D5 
4B28- D6 D4 CF C3 AO AO AO DO 4C10- C3 C5 D2 
4B30- C9 D3 D4 C5 FC 00 AO AO 4C18- CC C5 A0 
4B38- DO C9 D3 D4 C5 FC 00 AO 4C20- CS AE 8D 
4B40- A0 AO AO CD C1 D8 D3 C5 4C28- C1 CD AA 
4B48- FC 00 AO AO D3 C5 C3 D4 4C30- D5 D2 A0 
4B50- C5 D5 D2 FC 00 AO AO CD 4C38- D2 CE C1 
4B58- C1 D8 DO C9 FC 00 A0 A0 4C40- AO CC C5 
4b60- A0 AO D3 C1 D5 B1l B1 FC 4C48- AE 8D 00 
4B68- 00 8D AD A0 DO D2 C7 A0 4C50- CD AA A0 
4B70- C3 CF D5 D2 C1 CE D4 AO 4C58- CE C5 A0 
4B78- A0 A0 A0 A0 C1 A4 FC 00 4C60- CC C9 D2 
4B80- A0 A0 AO A0 AO CC A4 FC 4C68- CC CF C7 
4B88- 00 8D AD A0 D4 D2 CB A0 4C70- CF C7 AE 
4B90- C3 CF D5 D2 C1 CE D4 A0 4C78- D2 C1 CD 
4B98- A0 CB D9 D2 C1 CD FC 00 4C80- CS A0 CE 





Les reliures Pom's 


Pour nos lecteurs comme pour nous, 
la revue Pom's est une source précieuse 
d'information. À ce titre, nous sommes 

amenés à la consulter souvent. 


Pour faire suite à de nombreuses 
demandes, et afin de facilité le rangement 
et les recherches dans Pom's, les Éditions 
MEV vous proposent des reliures toilées 

propres à recevoir six numéros, soit 
un an de documentation. 


Une fois reliées, les revues forment 
un livre agréable à utiliser et insensible 
aux manipulations répétées. 


Ces reliures sont de couleur Bordeaux, 


le logo ‘Pom's’ est frappé au dos et un aplat 


est réservé pour noter l'année. 


Reliures Pom's : 60,00 Frs franco 
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4C88- 
4C90- 
4C98- 
4CAO0- 
4CA8- 
4CBO- 
4CB8- 
4CCO- 
4CcC8- 
4CDO- 
4CD8- 
4CE0- 
4CE8- 
4CFO- 
4CcF8- 
4D00- 
4D08- 
4D10- 
4D18- 
4D20- 
4D28- 
4D30- 
4D38- 
4D40- 
4D48- 
4D50- 
4D58- 
4D60- 


A0 


CE 
A0 


A0 


A0 





| 


CU ETES RE RTS TO UE A AUOT IN RTE TS OU OF DE 





ProDOS et fichiers 


détruits 


Si vous avez tendance à 
‘bidouiller’ en assembleur dans 
les méandres de votre Apple, il 
peut vous arriver d'exciter les 
adresses fatidiques situées vers 
$COEO, qui déclenchent les 
routines ‘hardware’ d'écriture sur 
disque. 

Vue l'heure souvent tardive, le 
désordre régnant sur le bureau, et 
le walkman qui vous distille une 
mélopée hypnotique, la consé- 
quence quasi-assurée est l'efface- 
ment total d'une piste, souvent la 
piste zéro. 


Sous DOS 3.3, cela affectait 
rarement l'intégrité logique de la 
disquette. En revanche, sous 
ProDOS, l'ensemble des poin- 
teurs internes permettant d'accé- 
der aux fichiers ont disparu et la 
disquette est apparemment bonne 
pour la casse. 


Apparemment seulement car, 
avec un peu de patience et 
d'habileté, les fichiers pourront 
être restaurés. En effet, ils sont 
toujours présents mais ProDOS 
ne sait plus les retrouver. 


C'est donc par nécessité que sont 
nées les trois commandes 
suivantes : 


+ INDEX, pour retrouver tous les 
blocs index des fichiers ; 

+ RBLOC pour lire directement 
un bloc en mémoire ; 

+ WBLOC pour écrire directement 
un bloc en mémoire. 


Elles sont entièrement compa- 
tibles avec la routine CMDLOAD 
(Pom's 20). 


Utilisation 


Récupérer l'intégrité des fichiers 
ne peut pas être une opération 
automatique (ne rêvons pas !). En 
revanche, ces commandes ad- 


ditionnelles vous aideront consi- 
dérablement, pourvu que vous 
ayez une connaissance minimum 
de la structure d'un volume 
ProDOS. 


: Image du programme | 
: exécuté lors du | 
: démarrage du disque : 


| Premier bloc du 
i directory 





Suite du directory 


Carte des blocs 
utilisés 


: Blocs libres, index 
ou données 





Dans mon cas, le démarrage 
incontrôlé du disque a eu pour 
effet non seulement d'effacer 
toute la piste zéro donc les blocs 
0 à 7, mais en plus de la rendre 
inutilisable. Elle avait été 
reformatée de façon fantaisiste, ce 
qui donnait des bruits inquiétants 
lorsque j'essayais de faire ne 
serait-ce qu'un CATALOG. 


Pour observer les causes du 
désastres, il suffit de charger un 
Nibble Editor et de comparer la 
piste O0 avec celle d'une autre 
disquette. Il est nécessaire, de 
toute façon, de reformater la piste 
endommagée, avec un utilitaire 
permettant un formatage partiel 
d'une disquette, puis de recopier 
la piste O0 issue d'une autre 
disquette ProDOS (votre copieur 
préféré fait probablement l'af- 
faire). 


Ceci fait, on dispose d'une 
disquette bonne en apparence, 
mais toujours inutilisable, car le 
‘directory’ recopié n'aiguille pas 
sur les bons fichiers. Ainsi, avant 


Patrice Neveu 


de modifier le directory, il faudra 
connaître les emplacements de 
tous les fichiers à récupérer. 
Nous allons donc devoir les 
localiser, grâce à la commande 
INDEX. 


La commande 
INDEX 


Pour comprendre le fonction- 
nement de la commande index, il 
faut étudier la structure d'un 
fichier sous ProDOS. Dans la 
majorité des cas, c'est-à-dire pour 
les fichiers de plus de 512 octets 
et de moins de 128Ko (Sapling 
files), il est construit ainsi : 


* un bloc index contient tous les 
numéros de blocs sur lesquels 
le programme est enregistré ; 

* puis, éparpillés sur la dis- 
quette, on trouve ces blocs. 


Sous ProDOS, les fichiers de 
moins de 512 octets (seedling 
files) sont pratiquement impos- 
sibles à retrouver car, étant donné 
qu'ils tiennent sur un bloc, ils ne 
sont pas localisés par un bloc 
index. Les fichiers de plus de 
128Ko et moins de 16 mégas 
(tree files) sont localisés par un 
bloc index “maître”, c'est-à-dire 
un index qui pointe vers un 
ensemble d'index, qui pointent à 
leur tour vers les blocs de 
données du fichier. 


Ainsi, lorsqu'on ne peut plus se 
fier au directory pour retrouver 
ses fichiers, le mieux est de 
chercher les blocs index. La 
commande INDEX va lire les 
blocs du disque un par un, et 
tenter de déterminer si un bloc 
peut ou non, être un bloc index. 
Elle a toutefois besoin que vous 
lui fournissiez le nombre de blocs 
que contient la disquette : 





Pom's n° 29 





+ 280 pour un disque 5,25 
pouces ; 

+ 1600 pour un disque 3,5 
pouces ; 

+ 127 pour le disque virtuel en 
mémoire auxiliaire. 


Les valeurs pour les ProFile et 
autres disques durs sont simples 
à déterminer, puisqu'un 
CATALOG affiche le nombre 
total de blocs. Bien sûr, mieux 
vaut avoir de la mémoire car, si 
c'est de votre disque dur dont il 
s'agit, vous n'en n'aurez 
peut-être pas un second sur lequel 
faire un essai. 


En cas de doute, donnez un 
nombre supérieur à la réalité : à 
partir d'un certain moment, 
INDEX affichera une suite 
ininterrompue de numéros de 
bloc en inverse ; vous en déduirez 
que le nombre de blocs du 
volume est immédiatement 
inférieur à cette suite. En règle 
générale, tout numéro de bloc 
affiché en inverse indique qu'il 
est impossible de lire ce bloc. 


INDEX s'inspire de la routine 
FIB publiée dans “Beneath Apple 
ProDOS”, mais en améliorant 
grandement les performances. 
Avec INDEX, un bloc index est 
automatiquement détecté comme 
tel (à l'exception des derniers 
blocs de directory) ; au contraire 
FIB produisait une très longue 
liste de blocs potentiellement 
index, dont bien peu l'étaient en 
réalité. L'algorithme utilisé est, 
en effet, plus discriminateur. 


Durant l'exécution de la 
commande, des numéros de blocs 
seront affichés (en affichage 
normal). Ce sont les blocs 
présumés être index. Sortez-les 
sur imprimante, ou notez-les, car 
nous allons maintenant les 
utiliser. 


Les commandes 
RBLOC & 
WBLOC 


RBLOC et WBLOC sont deux 
commandes supplémentaires : il 
faudra lire un bloc par RBLOC, 
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n° bloc suivant 






$12 = 18 fichiers 
dans le catalogue 

















n° bloc précédent : 
BLOC2 


0900: 00 00 03 00 F9 48 4] 
0908: 44 43 4F 50 49 
0910: 00 00 00 00 00 00/0087... .... 
0918: 00 00 00 00 g#"0@ 00 00 ........ 
0920: 01 00 c3 Q 
0928: de 
premier fichier 0930: 4D 41 4 e—v0) 00 00 MAC..... 






$27 : 
2 = fichier de 2 à 256 blocs 
7 = longueur du nom 


























$6 : c'est un fichier binaire 
nb de blocs : 3 


le bloc n° $0008 est le bloc 
d'index, c'est ce n° qu'on 
modifiera 


AUX_TYPE : $7000 
Comme ce fichier est 

du type binaire, il s'agit de 
son adresse de chargement. 






























«+ « &PRODO 











second fichier 


Ce fichier contient 
$000236 octets 
(566 en décimal) 


Lenom 




















. BASIC. 
SYSTEM. . 















Le bloc n° 2 (premier bloc du catalogue), tel qu'il est affiché à l'écran 
après la commande ‘RBLOC 2, Pour modifier le numéro de bloc index du 
premier fichier par exemple (n° trouvé à l'aide de la commande INDEX), 
passer en moniteur (CALL - 151), puis avec le curseur, relire la ligne 
‘0938:..." en modifiant au passage le numéro. Réécrire le bloc en faisant 
WBLOC 2. 












Pour bénéficier des commandes RBLOC, WBLOC et INDEX, il aura fallu faire 
_ BLOC’ et ‘- INDEX’. 












le modifier en mémoire en 
utilisant le moniteur de l'Apple 
(accessible par CALL - 151), 
puis réécrire le bloc par WBLOC. 


La structure du 
Directory 


Dès lors, nous avons toutes les 
informations nécessaires pour 


L'exécution des deux commandes 
affiche également à l'écran les 
premiers octets du bloc et son 
adresse d'implantation. Ainsi, si 
la première adresse est $900, 
alors le bloc se trouve en 
$900-$AFF. Les routines char- 
gent et déchargent uniquement la 
mémoire vive située après un 
éventuel programme Applesoft et 
ses variables simples. En 
conséquence, il est préférable de 
ne pas modifier un programme, 
ou l'exécuter, entre le RBLOC et 
le WBLOC correspondant. 


Il est maintenant préférable de 
s'assurer, par l'utilisation de 
RBLOC, que chaque bloc détecté 
par la routine INDEX correspond 
bien à un index de fichier. En 
particulier, le même numéro de 
bloc ne doit pas apparaître deux 
fois. 


ré-insérer nos fichiers dans le 
directory. Pour lire le directory, il 
faut se rappeler que celui-ci 
commence toujours en bloc 2 ; 
c'est le bloc-clé. Puis, selon le 
type de disque, il continue sur 
plusieurs blocs consécutifs. En ce 
qui concerne la structure du 
directory, seuls les octets 
impliqués dans la récupération 
des fichiers sont signalés dans la 
liste qui suit. 


En début de chaque bloc 

directory, on trouve toujours 

cecr: 

$00-01 numéro du bloc précé- 
dent du directory pré- 
cédent. Si nul, on est 
dans le premier bloc ; 

$02-03 numéro du bloc suivant 
du directory. Si nul, on 
est en fin de directory. 


On ne touche pas à ces blocs 








ENS 





qui ne servent qu'au chaînage 
interne, immuable par type de 
support. 


$25-26 FILE COUNT 
Nombre de fichiers 
actifs dans le catalogue. 


À mettre à jour, en fin de 
travail, lorsque l'on saura 
exactement combien de fichiers 
sont à récupérer et à lister lors 
d'un CATALOG. 


Ensuite, à partir de l'octet $2B, 
sont placées 13 séries de $27 (39) 
octets qui décrivent individuel- 
lement les fichiers stockés. Pour 
chaque série, on trouve : 


$00 STORAGE_TYPE/ 
NAME_LENGTH 
type de fichier/longueur 
du nom, au format 
FITIÉLLEL. 


Le type peut prendre les 
valeurs : 


$0 Entrée effacée, disponible 
pour réutilisation 

$1 Seedling file (1 bloc) 

$2 Sapling file (2 à 256 
blocs) 

$3 Tree file (257 à 32768 
blocs) 

$D Sous-catalogue 

$E Premiere entrée d'un 
sous-catalogue 

$F Première entrée du catalo- 
gue (voir précédemment) 


$01-0F FILE NAME 
nom du fichier. 


Au départ, mieux vaut soit ne 
pas y toucher, soit y mettre un 
caractère alphabétique. Les 
commandes RENAME seront 
pour bien plus tard. 


$10 FILE_TYPE 
type du fichier 


Les types qui peuvent nous 
intéresser sont : 


$04 TXT fichier ASCII 
$06 BIN binaire 
$0F DIR  sous-directory 
$19 ADB base de donnée 
AppleWorks 
$iA AWP traitement 
de texte 
AppleWorks 
$1B ASP tableur 
AppleWorks 


$EF PAS PASCAL sous 
ProDOS 

$FC BAS BASIC 
Applesoft 

$FE REL programme 
langage 
machine 
relogeable 

$FF SYS système 


Pour déterminer le type appro- 
prié, il sera préférable d'utiliser 
la routine TDUMP du numéro 
20 de Pom's afin d'afficher le 
fichier et en déduire sa nature. 


$11-12 KEY POINTEUR 
numéro du bloc index. 


À modifier aussitôt que l'on a 
utilisé INDEX et vérifié l'au- 
thenticité des blocs renvoyés. 


$13-14 BLOCKS_USED 
Nombre de blocs utili- 
sés par le fichier. 


Cela comprend les blocs index 
plus les blocs de données. 
Modifier ceci en fonction 
encore de ce que le bloc index 
a donné. 


$15-17 EOF 
Longueur du fichier sur 
3 octets. 
Au départ, y mettre 512 fois le 
nombre de blocs trouvé. 
Ensuite, il sera toujours plus 
facile de le modifier par voie 
logicielle. 


$1F-20 AUX TYPE 
dépend de FILE_TYPE 


TXT Longueur d'enregistre- 
ment (paramètre L dans 
OPEN) 

BIN Adresse de chargement 
(paramètre A dans 
BSAVE) 

BAS Adresse de chargement 
(lorsque sauvé par 
SAVE, normalement 


$801) 
VAR Adresse des variables 
(sauvées par STORE) 
SYS Adresse de chargement 
(habituellement $2000) 


Il est quasiment impossible de 
fixer ces adresses, à moins de 
se les rappeler, ou que le 
fichier soit issu d'un logiciel 
qui sauve toujours à la même 
adresse. 


Les autres octets de chaque série 
sont hors-propos ici, et d'ailleurs 
non indispensables (par exemple 
les dates de création et 
modification). 


Après avoir 
retrouvé 
les fichiers 


Voilà, logiquement une fois tout 
ceci terminé, on devrait pouvoir 
prendre les utilitaire ProDOS et 
sauvegarder tous nos fichiers sur 
une bonne disquette ProDOS, car 
rapellons-le, ce que nous avons 
fait suffit seulement à reconnecter 
des fichiers au directory, et non à 
remettre la disquette entièrement 
en état. Entre autre, le schéma 
d'occupation des blocs n'est pas 
mis à jour, et il est donc impératif 
de ne sauvegarder aucun fichier 
sur le disque. 


Syntaxe des 
commandes 


Après avoir fait : 
-INDEX 


et 
-BLOC, 


vous disposez des commandes 
suivantes : 
INDEX <nb de blocs> 
[, S<numéro de slot>] 
[,D<numéro de drive>] 


RBLOC <numéro du bloc> 
[, S<numéro de slot>] 
[, D<numéro de drive>] 


WBLOC <numéro du bloc> 
[, S<numéro de slot>] 
[,D<numéro de drive>] 
Par exemple : 
INDEX 280,56 
INDEX 1600 
RBILOC 173,S55,D2 
WBLOC 173 
Pour le disque virtuel /RAM, 
prendre S3,D2. 


Liste des fichiers sur la 
disquette Pom's 


T.INDEX.CODE 
source Big Mac (format texte), 
commande INDEX 
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T.BLOC.CODE 
idem pour commandes 
RBLOC & WBLOC 

INDEX 
module exécutable 

BLOC 


module exécutable Au 


Les commandes s'installent par 
un simple BRUN sur les modules 


exécutables. 


G 


ProDOS 


verso de la disquette d'accompagnement (face 


nommée /POMS29/), les fichiers sont au format ProDOS. 





Source ‘T.INDEX.CODE' 
Assembleur Big Mac, format TEXT 


; Ù LST OFF 

2 

3 ORG $2100 

4 

ÉRELLLLLELELLELELELELLLEEELEEEEEEELEETZE LL) LT) 

6 * INDEX: Permet de localiser tous les #* 

TR blocs susceptibles d'etre des * 

es“ blocs index, L 

9 * * 

D ORELEELELEEE EE EEE ECTS EEE CLILILIILITTIIIS 

11 

12 t--mmmmmmmmmmmmmmmmmmmmsmmmmmmmmm——……—… * 

13 * Syntaxe: * 

EE * 

15 * INDEX <total> [,S<slot>] [,D<drive>]) * 

16 * * 

17 * Le programme va lire tous les blocs du disque * 

18 * jusqu'au nombre total qu'on lui indique dans * 

19 * commande, Si le bloc est susceptible d'etre un * 

20 * bloc index, 11 affiche son numéro. * 

21 * * 

12 Knmpnnmnnemdusnemc— mms mms * 

23 

24 2--—mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm— 

25 * Labels 

DE fnesant---- mme RE 

27 

28 SYNT_ERR = $40 : Code du message 'SYNTAX 
ERROR' 

29 PTR = $48 + Pointeur temporaire 

30 LINNUM = $50 : Résultat de GETADR 


31 STREND = $6D : Adresse du début de la 
zone libre 

: Adresse de la fin de la 
zone libre 

: Sauvegarde de TXTPTR 

: Code du Carriage Return 
: Adresse de la première 
moitié du bloc lu 

: Adresse de la seconde 
moitié du bloc lu 

: Routine de prise de 


32 FRETOP = $6r 


33 OLDTXTPTR 
34 CR = $80 
35 BUFADRI = $AB 


" 
« 
nel 
w 


36 BUFADR2 = $AD 


37 CHRGET = $81 


caractère 

38 TXTPTR = $B8 + Pointe sur le caractère 
à prendre 

39 

40 IN = $0200 : Buffer clavier 

41 

42 PRINTERR = $BEOC +: Affichage de l'erreur 

43 DEFSLT - $BE3C : Slot par défaut 

44 DEFDRV = $BE3D : Drive par défaut 

45 XTADDR = $BESO ; Pointe adresse de la 


commande externe 


46 XLEN = $BE52 : Longueur du nom de la 
commande moins un 

47 XCNUM = $BES3 : Numéro de commande 

48 PBITS - $BE54 # Indiquent les 
paramètres valables 

49 VPATHL = $BE6C : Pointe sur le nom de 
volume 

50 BADCALL = $BE8B : Traduit l'erreur pour 
le BI 

51 ENTRY = $BF00 5 Point d'entrée du MLI 

52 SYSERR = $BFOF + Va à la routine de 
traitement des erreurs 

53 

54 FRMNUM = $DD67 +: Range valeur pointée 
par TXTPTR dans FAC 

55 GETADR = $E752 +: Transforme FAC en 
entier 2 oct (LINNUM) 

56 LINPTR = $ED24 + Affiche X et À 

57 COUT = $FDED +: Affiche le caractère se 
trouvant dans À 

58 INVERSE = $FE80 : Affiche en inverse 

59 NORMAL = $FE84 : Affiche en normal 

60 RTS - $FF58 ; Contient un RTS 





66 START CLD : Obligatoire pour ProDOS 

67 LDA #>FIN+$0100 ; Convention pour 
CMDLOAD 

68 LDA #>LONG-50100 


69 V_OLDCMD LDA RTS 


75 


83 


90 


COMPAR 


NO_CMD SEC 


VPATHI : Pointe vers commande 
pour déterminer s1 

PTR ; c'est la notre 

VPATHI+1 

PTR+1 

#1 

(PTR) ,Y ; C'est INDEX ? 

COMMAND-1,Y 

NO_CMD + non, alors retour au 
ProDOS 

#5+1 

COMPAR 

BONNECMD : C'est INDEX alors on 
peut y aller 
i Indique que la commande 
n'est pas à nous 

(V_OLDCMD+1) 





BONNECMD 
DEY : Demande à ProDOS 
d'examiner la commande 
DEY 3 Il ne doit pas y avoir 
de paramètres 
STY XLEN 
LDA #0 
STA SYSERR 
STA XCNUM 
LDA #0 + Pas de paramètres: $00 
en (Pbits) 
STA PBITS 
LDA #0 
STA PBITS+1 
V_SUITE LDA SUITE Indique l'adresse du 
retour 
LDA V_SUITE+1 
STA XTADDR 
LDA V_SUITE+2 
STA XTADDR+1 
CLC + C'était bien pour nous 
RTS 
SUITE 
CMP #0 : Si pas d'erreur, on 
continue 
BNE NO CMD 
Raman een emamemun unes 
« Lecture du nombre de blocs 
er 2 ee mt 
LDA TXTPTR ; Sauvegarde de TXTPTR 
pour que l'execution 
LDX TXTPTR+1 +: d'un programme Basic 
puisse se continuer. 
STA OLDTXTPTR 
STX OLDTXTPTR+1 
LDY XLEN i Où se trouve la fin du 
mot de commande ? 
INY ; Sert à lire la suite: 
numéro de bloc, 
INY : puis les paramètres 
éventuels (S et D} 
TYA : Pour cela, on se sert 
de TXTPTR: 
CLC +: On additionne la 
longueur du mot-clé 
ADC VPATHIL ‘ (INDEX) au début de la 
ligne de commande. 
STA TXTPTR : On a alors le début de 
l'opérande. 
LDA VPATHL+1 ;: C'est ce qu'on met en 
TXTPTR, 
ADC #0 
STA TXTPTR+1 
JSR RD_NBR ; On va lire le nombre 
qui est pointé 
STA TOT BLOC ; Ce sera le bloc final 
STX TOT_BLOC+1 
ms mp ms me 
* Lecture des paramètres s'il y en a 


Récapitulation 
‘INDEX’ 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez 
par BSAVE INDEX,A$2000,L$2D5 


Les codes de $2000 à $20FF 
correspondent au programme 
CMDLOAD (Pom's 20). 


2000:AD 00 BF C9 4C FO 05 A9 
2008:87 4C ED FD AD 4D BE FO 
2010:05 A9 15 4C 09 BE AD 04 
2018:21 69 00 20 98 20 90 05 
2020:A9 OE 4C 09 BE CD 02 21 
2028:90 F6 AE 08 BE 8D 08 BE 
2030:8E 07 21 AE 07 BE 8E 06 
2038:21 AO 00 8C 07 BE 48 E9 
2040:21 85 3C 68 38 E9 04 85 
2048:74 A9 21 85 49 84 48 AO 
2050:00 B1 48 FO 27 20 8E F8 
2058:A4 2F CO 02 DO OF B1 48 
2060:C9 21 90 09 CD 02 21 BO 
2068:04 65 3C 91 48 AS 48 38 
2070:65 2F 85 48 A5 49 69 00 
2078:85 49 DO D3 AO 00 A9 21 
2080:84 3C 85 3D 18 6D 04 21 
2088:84 42 88 84 3E 85 3F AD 
2090:08 BE 85 43 C8 4C 2C FE 
2098:8D FB 20 A5 74 18 69 04 
20A0:8D FC 20 86 3D CE FC 20 
20A8:F0 47 AD FC 20 8D FD 20 
20B0:AD FD 20 48 4A 4A 4A AA 
20B8:68 29 07 AB B9 F3 20 3D 
20C0:58 BF DO El A5 3D DO 09 
20C8:B9 F3 20 1D 58 BF 9D 58 
20D0:BF AD FC 20 38 CE FD 20 
20D8:ED FD 20 CD FB 20 DO DO 
20E0:A5 3D DO 07 18 AE FD 20 
20F8:E8 8A 60 A9 00 85 3D FO 
20F0:B9 38 60 80 40 20 10 08 
20F8:04 02 01 00 00 00 AD 99 
2100:D8 A9 23 A9 O1 AD 58 FF 
2108:AD 6C BE 85 48 AD 6D BE 
2110:85 49 AO O1 B1 48 D9 CA 
2118:22 DO 07 C8 CO 06 90 F4 
2120:B0 04 38 6C 06 21 88 88 
2128:8C 52 BE A9 00 8D OF BF 
2130:8D 53 BE A9 00 8D 54 BE 
2138:A9 00 8D 55 BE AD 4E 21 
2140:AD 3E 21 8D 50 BE AD 3F 
2148:21 8D 51 BE 18 60 C9 00 
2150:D0 DO A5 B8 A6 B9 85 79 
2158:86 7A AC 52 BE C8 C8 98 
2160:18 6D 6C BE 85 B8 AD 6D 
2168:BE 69 00 85 B9 20 82 22 
2170:8D DO 22 8E D1 22 20 AF 
2178:22 20 B8 22 FO 28 C9 AC 
2180:D0 F7 20 B8 22 C9 D3 DO 
2188:0B 20 B8 22 29 07 8D 3C 
2190:BE 4C 79 21 C9 C4 FO 03 
2198:4C 8E 22 20 B8 22 29 03 
21A0:8D 3D BE 4C 79 21 A9 00 
21A8:8D CA 22 8D C9 22 AD C5 
21B0:22 AD AF 21 AE BO 21 8D 
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30 


JSR IN_PTR ; Refixe le pointeur au 
début du buffer 
CH_VRGL JSR CHR GET : Prend caractère jusqu'à 
ce que soit une 
BEQ EOL ;: virgule, car cela 
signifierait un numéro 
CMP +#”," : de drive et/ou de slot 
à lire. 
BNE CH_VRGL 
JSR CHR GET : Prend le caractère de 
commande 
CMP #"s" ; C'est le changement de 
Slot ? 
BNE TEST D : Non, alors peut-etre 
est-ce le drive ? 
JSR CHR GET ; Quel est le nouveau 
Slot ? 
AND #%00000111 
STA DEFSLT ; À mettre chez ProDOS 
JMP CH_VRGL 
TEST D CMP #'"D" : C'est le changement de 
Drive ? 
BEQ NOERRS 
JMP ERR_STX 
NOERRS JSR CHR GET : Quel est le nouveau 
drive ? 
AND #%00000011 
STA DEFDRV 
JMP CH_VRGL 
EOL 
Dan rhone manne mme eee 
# Boucle de lecture des blocs 
ou eo oo om om mo ee ee 
LDA #0 : Commence au bloc 0 
STA BLOC _DEP+1 
STA BLOC_DEP 
No eee ere mess mc MR ea LS 
* Lecture du bloc indiqué 
EEE LEP RP ET RARE, 
VC_PARM LDA PARM : Nécessaire à cause du 
relogement 
LDA VC_PARM+1 ; Indique où est la table 
de paramètres 
LDX VC_PARM+2 
STA VC_MLI 
STX VC_MLI+1 
LDA DEFDRV : Codage du numéro 
d'unité sous la forme 
AND #%00000010 ; DSs50000 
ASL 
ASL 
ORA DEFSLT 
ASL 
ASL 
ASL 
ASL 
STA PARM+1 
LDX STREND+1 i Installe le buffer dans 
la zone libre 
INX 
CPX FRETOP+1 
BCC FIX _BUF 
LDA #$56 5 S'il n'y en a pas 
assez, alors on sort 
ERR JMP ERR EXIT : "NO BUFFER AVAIABLE' 
FIX BUF STX BUFF+1 : Sinon, enregistre la 
page du buffer 
JSR RD_ BLOC ; Puis va lire le bloc en 
question 
BCS ERR i AU Cas où 11 y aurait 
une erreur 
mere ennemi 
LJ Analyse du bloc 
ren emmemmaimmmmmmmns sm 
LDY BUFF : Prépare des pointeurs 
pour indiquer 
LDX BUFF41 : l'adresse de la 
première page du buffer, 
STY BUFADRI ; et celle de la seconde 
page du buffer. 
STX BUFADR1+1 
INX 
STY BUFADR2 
STX BUFADR2+1 
mm mm mm mm mme 
: Teste si le bloc peut etre un 
index 
et remonte em dre res 
LDY #0 : Se place au début du 
bloc 
JSR VRFZ : Va vérifier s'11 est 
completement nul 
BEQ NXTBLK : Si oui, alors ça ne 





224 BNE 
225 

226 VRFZ LDA 
227 ORA 
228 BNE 
229 INY 
230 BNE 
231 VRFRTS RTS 
232 

233 CHKNG2 

234 LOY 
235 STY 
236 CHKNG3 

237 LDY 
238 LDA 
239 BEQ 
240 STA 
241 LDA 
242 STA 
243 

244 NXTBYTE INY 
245 BEQ 
246 LDA 
247 ce 
248 BCC 
249 BNE 
250 LDA 
251 ce 
252 Bcs 
253 vi LDA 
254 BNE 
255 

256 INY 
257 JSR 
258 BEQ 
259 BNE 
260 

261 v2 CMP 
262 BNE 
263 

264 LDA 
265 CMP 
266 BNE 
267 BEQ 
268 EOI 

269 INC 
270 BNE 
271 

272 GOOD_ONE 

273 cPY 
274 BEQ 
275 

276 CONT 

277 JSR 
278 JwP 
279 

280 
281 * si 
282 
283 

284 PBLOCK 

285 LOX 
286 LDA 
287 JSR 


peut etre un index 
3 Sinon, on fait une 
autre vérification 


CHKNG2 


(BUFADR1),Y ; La méthode a été 
entièrement changée 

(BUFADR2) ,YŸ ; par rapport à ‘Beneath 

Apple ProDOS' 

: Car elle donnait trop 

de blocs non-index 

;: Avec celle-ci tous les 

essais faits 

+ seul dernier bloc du 

catalog est indiqué 

: à tort comme étant un 

index. 


VRFRTS 


VRFZ 


50 : Le principe: tester si 

tous les numéros 

: 16 bits différents les 

uns des autres, 

; puisque index he peut 

contenir 2 fois le 

COMPTEUR ;: meme bloc. 

(BUFADR1) ,Y ; Numéro zéro indique la 
fin de la liste 


COMPTEUR 


GOOD_ONE ; Donc si on y est, c'est 
un index 

TEMP Sinon on stocke pour la 
vérification 

(BUFADR2) ,Y 

TEMP+1 
; On compare au numéro 
d'après 

EOI ;: Si on est à la fin du 
bloc 


(BUFADR2) ,Y 
TOT_BLOC+1 ; Numéro ne peut etre 
supérieur au nbr max 


vil 

NXTBLK 3 Sinon, pas un bloc 

index qu'on teste 

(BUFADR1) ,Y 

TOT_BLOC 

NXTBLK 

(BUFADR1),Y ; Si on tombe sur un 
zéro, ça signifie 

v2 : peut-etre une fin de 
liste. 


+: Donc on regarde s1 ce 
qui suit est nul 


VRFZ : Va vérifier 

EOI 3; Si oui, alors on a fini 
l'index 

NXTBLK ;i Sinon, ce n'était pas 
un index 

TEMP : Ce n'était pas un zéro, 
donc on vérifie 

NXTBYTE : le bas du numéro. 


(BUFADR2),Y ; Si pareil en bas, 11 
se peut que le 


TEMP+1 ; haut soit différent... 

NXTBYTE ; Si oui, alors prochain 
octet 

NXTBLK 3 Si non, prochain bloc 

COMPTEUR  ; Tous les octets étaient 
différent à celui 

CHKNG3 : testé, donc on prend le 
suivant. 

0 : Si ler octet du bloc 
est un zéro, alors 

NXTBLK i ça ne peut pas etre un 
index 

PBLOCK : Affiche le numéro de 
bloc 

NXTBLK : Passe au prochain bloc 

le bloc peut etre index, 
afficher 

BLOC_DEP : Affichage en décimal du 


numéro de bloc, 
BLOC_DEP+1 ; suivi d'une virgule 
pour tous les séparer 


LINPTR 
NORMAL 





295 
296 NXTBLK 


297 INC 


3 Passe au prochain bloc 
tout en vérifiant 


BLOC_DEP 


2188:C2 22 8E C3 22 AD 3D BE 
21C0:29 02 OA OA OD 3C BE OA 
21C8:0A OA OA 8D C6 22 A6 6E 
21D0:E8 E4 70 90 05 A9 56 4C 
21D8:90 22 8E C8 22 20 BE 22 
21E0:B0 F5 AC C7 22 AE C8 22 
21E8:84 AB 86 AC E8 84 AD 86 
21F0:AE AO 00 
21F8:D0 OA B1 AB 11 AD DO 03 
2200:C8 DO F7 60 AO 00 8C D2 
2208:22 AC D2 22 B1 AB FO 3A 
2210:8D D3 22 B1 AD 8D D4 22 
2218:C8 FO 2A B1 AD CD D1 22 
2220:90 09 DO 41 B1 AB CD DO 
2228:22 BO 3A B1 AB DO 08 C8 
2230:20 FA 21 FO 10 DO 2E CD 
2238:D3 22 DO DC Bl AD CD D4 
2240:22 DO D5 FO 20 EE D2 22 
2248:D0 BF CO 00 FO 17 20 54 
2250:22 4C 65 22 AE C9 22 AD 
2258:CA 22 20 24 ED 20 84 FE 
2260:A9 AC 4C ED FD EE C9 22 
2268:D0 03 EE CA 22 AD CA 22 
2270:CD D1 22 FO 03 4C AE 21 
2278:AD C9 22 CD DO 22 90 F5 
2280:18 60 AO 00 B1 B8 C9 30 
2288:90 04 C9 3A 90 16 A9 40 
2290:C9 27 FO OA C9 28 FO 06 
2298:20 8B BE 4C OC BE 20 80 
22A0:FE 4C 4E 22 20 67 DD 20 
22A8:52 E7 A5 50 A6 51 60 AO 
22B0:00 A2 02 84 B8 86 B9 60 
22B8:20 B1 00 C9 8D 60 20 00 
22C0:BF 80 C5 22 60 03 60 00 
22C8:00 00 00 49 4E 44 45 58 
22D0:00 00 00 00 00 








Récapitulation 
‘BLOC’ 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez 
par BSAVE BLOC,AS2000,L$2A4 


Les codes de $2000 à $20FF 
correspondent au programme 
CMDLOAD (Pom's 20). 


2000:AD 00 BF C9 4C FO 05 A9 
2008:87 4C ED FD AD 4D BE FO 
2010:05 A9 15 4C 09 BE AD 04 
2018:21 69 00 20 98 20 90 05 
2020:A9 OE 4C 
2028:90 F6 AE 08 BE 8D 08 BE 
2030:8E 07 21 AE 07 BE 8E 06 
2038:21 A0 00 8C 07 BE 48 E9 
2040:21 85 3C 68 38 E9 04 85 
2048:74 A9 21 85 49 84 48 AO 
2050:00 B1 48 FO 27 20 8E F8 
2058:A4 2F CO 02 DO OF B1l 48 
2060:C9 21 90 09 CD 02 21 BO 
2068:04 65 3C 91 48 A5 48 38 
2070:65 2F 85 48 A5 49 69 00 
2078:85 49 DO D3 AO 00 A9 21 
2080:84 3C 85 3D 18 6D 04 21 
2088:84 42 88 84 3E 85 3F AD 
2090:08 BE 85 43 C8 4C 2C FE 
2098:8D FB 20 A5 74 18 69 O4 
20A0:8D FC 20 86 3D CE FC 20 
20A8:FO0 47 AD FC 20 8D FD 20 
20B0:AD FD 20 48 4A 4A 4A AA 
20B8:68 29 07 A8 B9 F3 20 3D 
20C0:58 BF DO El A5 3D DO 09 
20C8:B9 F3 20 1D 58 BF 9D 58 
20D0:BF AD FC 20 38 CE FD 20 
20D8:ED FD 20 CD FB 20 DO DO 
20E0:A5 3D DO 07 18 AE FD 20 
20E8:E8 8A 60 A9 00 85 3D FO 
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298 BNE EOD : qu'on ne sort pas des 
limites fixées par 

299 INC BLOC _DEP+1 ; la commande. De toute 
façon, si on 

300 EOD LDA BLOC DEP+1 ; demande à lire plus de 
blocs qu'il n'en 

301 CMP TOT_BLOC+1 ; existe, Une erreur se 
produira. Il n'est 

302 BEQ EODI + donc possible de donner 
qu'on nombre 

303 GO_LIT_BL JMP VC_PARM + inférieur au nombre 
max Lraum 

304 

305 EOD1 LDA BLOC _ DEP 

306 CMP TOT_BLOC 

307 BCC GO LIT BL 

308 

309 Nm mm 

310 * Sortie de commande 

311 #0 





318 2-0 nn 

319 

320 RD_NBR 

321 LOY #0 3 FRMNUM doit tomber sur 
un chiffre. 

322 LDA (TXTPTR) ,Y ; S'assure que s'en est 
un, mais sans 

323 CMP #'0 i passer par CHRGET, qui 
modif. TXTPTR,. 

324 BCC ERR_STX # Si on a un chiffre, 
c'est bon, car FRMNUM 

325 CMP #': : s'arretera à la fin du 
nombre, 

326 BCC NO ERR 5 Simon, on signale une 
erreur de syntaxe. 

327 

328 ERR_STX LDA #SYNT_ERR ; Signaler soi-meme, car 
FRMNUM tend 

329 ERR _EXIT 

330 CMP 4#$27 

331 BEQ 1O_ERR 

332 CMP #$28 

333 BEQ 1O_ERR 

334 JSR BADCALL # à déconnecter ProDOS 
lorsqu'il génère une 

335 JMP PRINTERR + Erreur 

336 IO_ERR JSR INVERSE 

337 JMP CONT 

338 

339 NO_ERR JSR FRMNUM i Si on a bien un nombre, 
on le lit, le met 

340 JSR GETADR : dans FAC puis met en 
entier dans LINNUM 

341 LDA LINNUM 

342 LOX LINNUM+1 

343 RTS 

344 

345 * 








346 * Met TXTPTR au début de IN 

347 nn 

348 

349 IN_PTR 

350 E LDY #<IN 5 Cette fois, on se place 
sur le buffer du 

351 LDX #>IN : Clavier, Ligne de 
commande y est entière 

352 STY TXTPTR : Et stockée en 
caractères ASCII avec le 

353 STX TXTPTR+1 : Dernier bit à 1 

354 RTS 

355 

356 #----------"mmmmmmmmmmnn nn 

359 

360 CHR GET JSR CHRGET 

361 CMP {#CR 

362 RTS 





367 

368 RD BLOC JSR ENTRY 
369 DFB $80 
370 VC_MLI DA PARM 
371 RTS 

372 

373 PARM DFB 3 

374 DFB 560 
375 BUFF HEX 0000 
376 BLOC _DEP HEX 0000 
377 

378 COMMAND ASC ‘'INDEX' 
379 

380 TOT_BLOC HEX 0000 
381 COMPTEUR HEX 00 

382 TEMP HEX 0000 
383 

384 FIN = * 

385 LONG = FIN-START+$0100 
386 


387 


Source ‘T.BLOC.CODE’ 


Assembleur Big Mac, format TEXT 


LST ON 





LST OFF 


ORG $2100 


LELLELELEEE ET EEE EEE 
* INDEX: Permet de localiser tous les * 
* blocs susceptibles d'etre des * 
* blocs index. x 
* * 
LRRSLLEELELEELLELLEEELEEEEEEETLLLI LIT IIII) 


- 
GS © © au » WU N 


mmme 





* Syntaxe: 


INDEX <total> [,S<slot>] (,D<drive>] 


Le programme va lire tous les blocs du disque 
Jusqu'au nombre total qu'on lui indique dans 
commande. Si le bloc est susceptible d'etre un 
bloc index, 11 affiche son numéro. 


NN + 





28 SYNT_ERR = $40 : Code du message 'SYNTAX 
ERROR' 

29 PTR = $48 : Pointeur temporaire 

30 LINNUM = $50 i Résultat de GETADR 

31 STREND - $6D : Adresse du début de la 
zone libre 

32 FRETOP = $6r ‘ Adresse de la fin de la 
zone libre 

33 OLDTXTPTR = $79 Sauvegarde de TXTPTR 

34 CR = $8p : Code du Carriage Return 

35 BUFADR1 = $AB : Adresse de la première 
moitié du bloc lu 

36 BUFADR2 = $AD + Adresse de la seconde 
moitié du bloc lu 

37 CHRGET - $B1l : Routine de prise de 
caractère 

38 TXTPTR = $B8 : Pointe sur le caractère 
à prendre 

39 

40 IN - $0200 +: Buffer clavier 

41 

42 PRINTERR = $BEOC + Affichage de l'erreur 

43 DEFSLT = $BE3C : Slot par défaut 

44 DEFDRV - $BE3D : Drive par défaut 

45 XTADDR = $BESO ; Pointe sur adresse de 
la commande externe 

46 XLEN - $BE52 ji Longueur du nom de la 
commande moins un 

47 XCNUM = $BE53 + Numéro de commande 

48 PBITS = $BES54 ‘ Indiquent les 
paramètres valables 

49 VPATHI = $BE6C : Pointe sur le nom de 
volume 

50 BADCALL = $BE8B : Traduit l'erreur pour 
le BI 

51 ENTRY - $BFO00 : Point d'entrée du MLI 

52 SYSERR = $BFOF : Va à la routine de 
traitement des erreurs 

53 

54 FRMNUM = $DD67 : Range valeur pointée 
par TXTPTR dans FAC 

55 GETADR = $E752 : Transform FAC en 
entier 2 oct (LINNUM) 

56 LINPTR = $ED24 : Affiche X et À 

57 COUT = $FDED +: Affiche le caractère se 
trouvant dans À 

58 INVERSE = $FE80 ‘ Affiche en inverse 

59 NORMAL = $FE84 + Affiche en normal 

60 RTS = $FF58 : Contient un RTS 





66 START CLD +: Obligatoire pour ProDOS 

67 LDA #>FIN+$0100 ; Convention pour 
CMDLORD 

68 LDA #>LONG-$50100 

69 V_OLDCMD LDA RTS 

70 LDA VPATHL : Pointe vers commande 
pour déterminer si 

71 STA PTR ; c'est la notre 

72 LDA VPATHI+1 

73 STA PTR+1 

74 LOY #1 

75 COMPAR LDA (PTR),Y ; C'est INDEX ? 

76 CMP COMMAND-1,Y 

NT BNE NO CMD 5 non, alors retour au 
ProDOS 

78 INY 

79 CPY #5+1 

80 BCC COMPAR 

81 BCS  BONNECMD ; C'est INDEX alors on 


peut y aller 


20F0:B9 
20F8:04 
2100:D8 
2108 :AD 
2110:85 
2118:22 
2120:22 
2128:D0 
2130:B0 
2138:06 
2140:21 
2148:02 
2150:8C 
2158:8D 
2160:8D 
2168:21 
2170:51 
2178:85 
2180:c8 
2188:AD 
2190:00 
2198:3A 
21A0:2E 
21A8:A5 
21B0:A1 
21B8:86 
21C0:c9 
21C8:D3 
21D0:8D 
21D8:D0 
21E0:3D 
21E8:3D 
21F0:BE 
21F8:A5 
2200 :AD 
2208:22 
2210:6E 
2218:90 
2220:B1l 
2228:FD 
2230:BE 
2238:9E 
2240:AC 
2248:A2 
2250:AB 
2258:FD 
2260:20 
2268:7F 
2270:80 
2278:EC 
2280:08 
2288:60 
2290:60 
2298:42 
22A0:00 


À compter de ce 
numéro, les 


38 
02 
A9 
6c 
49 
A2 
E8 
08 
0F 
AO 
A9 
A9 
52 
53 
55 
8D 
BE 
79 
98 
6D 
B1 
90 
22 
50 
22 
B9 
AC 
DO 
3C 
C1 
BE 
BE 
0A 
79 
gc 
8D 
E8 
0F 
co 
20 
AC 
22 
A6 
01 
20 
c8 
4A 
c9 
20 
20 
85 
00 
02 
4C 
00 


disquettes 


Pom's sont 
formatées… 


BRAS 
SOUOII 








E 


À 








E 
82 143 BEQ EOL ; virgule, car cela 
83 NO CMD SEC ; indique que la commande signifierait un numéro 
L n'est pas à nous 144 CMP are ; de drive et/ou de slot 
84 JMP  (V_OLDCMD+1) à lire. 
| 85 145 BNE CH_VRGL 
BG km 146 
Ce ProDOS étudie la ligne 147 JSR CHR GET : Prend le caractère de 
98 mme mm commande 
89 148 CMP #"s" ;: C'est le changement de 
90 BONNECMD Slot ? 
91 DEY ;: Demande à ProDOS 149 BNE TEST_D ; Non, alors peut-etre 
+ d'examiner la commande est-ce le drive ? 
u 92 DEY ; Il ne doit pas y avoir 150 JSR CHR GET ; Quel est le nouveau 
] de paramètres Slot ? 
93 STY  XLEN 151 AND ##00000111 
94 LDA #0 152 STA DEFSLT ; À mettre chez ProDOS 
: 95 STA SYSERR 153 JMP CH_VRGL 
96 STA XCNUM 154 
| 97 LDA #0 ; Pas de paramètres: $00 155 TEST _D CMP #"D" : C'est le changement de 
en (Pbits) Drive ? 
Ë 98 STA PBITS 156 BEQ NOERRS 
4 99 LDA #0 157 JMP ERR_ STX 
100 STA PBITS+1 158 NOERRS  JSR CHR GET ; Quel est le nouveau 
101 V SUITE LDA SUITE : Indique l'adresse du drive ? 
retour 159 AND ##00000011 
102 LDA V_SUITE+1 160 STA DEFDRV 
: 103 STA XTADDR 161 JMP CH_VRGL 
104 LDA V_SUITE+2 162 EOL 
4 105 STA XTADDR+I1 163 
: 106 CLC ; C'était bien pour nous 264 
E 107 RTS 165 * Boucle de lecture des blocs 
108 SUITE 166 =... 
109 CMP #0 ; Si pas d'erreur, on 167 
continue 168 LDA #0 : Commence au bloc 0 
110 BNE NO CMD 169 STA BLOC DEP+1 
111 170 STA BLOC DEP 
112 f=-=mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm— 171 
113 * Lecture du nombre de blocs 172 ee 
== AP mn PP PP nn on Ps rs RES 173 * Lecture du bloc indiqué 
. 115 DTA ee rem 
116 LDA TXTPTR ; Sauvegarde de TXTPTR 175 
. pour que l'execution 176 VC _PARM LDA PARM : Necéssaire à cause du 
117 LDX TXTPTR+1 ; d'un programme Basic relogement 
puisse se continuer. 177 LDA VC _PARM+1 ; Indique où est la table 
118 STA OLDTXTPTR de paramètres 
- 119 STX OLDTXTPTR+1 178 LDX VC_PARM+2 
= 120 179 STA VC MLI 
" 121 LDY XLEN : Où se trouve la fin du 180 STX VC _MLI+1 
: mot de commande ? 181 
_ 122 INY ; Cela sert à lire la 182 LDA DEFDRV ; Codage du numéro 
= suite: num de bloc, d'unité sous la forme 
< 123 INY ;: puis les paramètres 183 AND ##00000010 ; DSSS0000 
éventuels (S et D) 184 ASL 
124 TYA ;: Pour cela, on se sert 185 ASL 
de TXTPTR: 186 ORA DEFSLT 
125 CLC ; On additionne la 187 ASL 
= longueur du mot-clé 188 ASL 
4 126 ADC VPATHI ; (INDEX) au début de la 189 ASL 
à ligne de commande. 190 ASL 
5 127 STA TXTPTR ; On a alors le début de 191 STA PARM+1 
2 l'opérande. 192 
128 LDA VPATHI+1 ; C'est ce qu'on met en 193 LDX STREND+1 ; Installe le buffer dans 
É TXTPTR. la zone libre 
129 ADC #0 194 INX 
= 130 STA TXTPTR+1 195 CPX FRETOP+1 
131 196 BCC FIX BUF 
: 132 JSR RD _NBR ; On va lire le nombre 197 
qui est pointé 198 LDA #$56 : S'il n'y en a pas 
133 STA TOT BLOC ; Ce sera le bloc final assez, alors on sort 
134 STX TOT BLOC+1 199 ERR JMP ERR EXIT : "NO BUFFER AVAIABLE' 
E 135 “ 200 
= US MR. 201 FIX BUF STX BUFF+1 ; Sinon, enregistre la 
: 137 * Lecture des paramètres s'il y en a page du buffer 
ESS RS TS 202 JSR RD_BLOC ; Puis va lire le bloc en 
= 139 question 
E 140 JSR IN _PTR ; Refixe le pointeur au 203 BCS ERR ; Au cas où il y aurait 
début du buffer Creer 
4 141 204 
. 142 CH_VRGL JSR CHR GET ; Prend caractère jusqu'à POSER EE EEE See ne DE PU 
4 ce que soit une 206 * Analyse du bloc 
E 
— 
” 32 Pom's n° 29 
3] 
— ss _— EE 





207 

208 

209 LDY BUFF ; Prépare des pointeurs 
pour indiquer 

210 LDX BUFF+1 : l'adresse de la 
première page du buffer, 

211 STY BUFADRI : et celle de la seconde 
page du buffer. 

212 STX BUFADRI1+1 

213 INX 

214 STY BUFADR2 

PE) STX BUFADR2+1 

216 

217 2 

218 * Teste si le bloc peut etre un 
index 

219 

220 

221 LDY #0 : Se place au début du 
bloc 

222 JSR VRFZ : Va vérifier s'il est 
completement nul 

223 BEQ NXTBLK ;: Si oui, alors ça ne 
peut etre un index 

224 BNE CHKNG2 ; Sinon, on fait une 
autre vérification 

225 

226 VRFZ LDA (BUFADR1),Y ; La méthode a été 
entièrement changée 

227 ORA  (BUFADR2),Y ; par rapport à ‘Beneath 
Apple ProDOS! 

228 BNE VRFRTS : Car elle donnait trop 
de blocs non-index 

229 INY ; Avec celle-ci et tous 
les essais faits 

230 BNE VRFZ ;: seul dernier bloc du 


231 VRFRTS RTS 


232 

233 CHKNG2 

234 LDY 
235 STY 
236 CHKNG3 

237 LDY 
238 LDA 
239 BEQ 
240 STA 
241 LDA 
242 STA 
243 

244 NXTBYTE INY 
245 BEQ 
246 LDA 
247 CMP 
248 BCC 
249 BNE 
250 LDA 
251 CMP 
252 BCS 
253 VI LDA 
254 BNE 
255 

256 INY 
257 JSR 
258 BEQ 
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catalog est indiqué 
; à tort comme étant un 


index. 
#0 ; Le principe: tester si 
tous les numéros 
COMPTEUR : 16 bits différents les 


uns des autres, 
; puisque index ne peut 
contenir 2 fois le 
COMPTEUR : meme bloc. 
(BUFADR1),Y ; Numéro zéro indique la 
fin de la liste 
GOOD_ONE ; Donc si on y est, c'est 


un index 

TEMP ; Sinon on stocke pour la 
vérification 

(BUFADR2),Y 

TEMP+1 
; On compare au numéro 
d'après 

EOI : Si on est à la fin du 
bloc 

(BUFADR2),Y 


TOT_BLOC+1 ; Numéro ne peut etre 
supérieur au nbr max 


V1 

NXTBLK ; Sinon, pas un bloc 
index qu'on teste 

(BUFADR1),Y 

TOT_BLOC 

NXTBLK 

(BUFADR1),Y ; Si on tombe sur un 
zéro, ça signifie 

v2 ; peut-etre une fin de 
liste. 
; Donc on regarde si ce 
qui suit est nul 

VRFZ ; Va vérifier 

EOI ;: Si oui, alors on a fini 


l'index 


BNE NXTBLK : Sinon, ce n'était pas 
un index 


v2 CMP TEMP : Ce n'était pas un zéro, 
donc on vérifie 
BNE NXTBYTE : le bas du numéro. 


LDA (BUFADR2),Y ; Si pareil en bas, il 
se peut que le 


CMP TEMP+1 ; haut soit différent... 
BNE NXTBYTE : Si oui, alors prochain 
octet 
BEQ NXTBLK ; Si non, prochain bloc 
EOI 
INC COMPTEUR : Tous les octets étaient 
différent à celui 
BNE CHKNG3 ;: testé, donc on prend le 
suivant. 
GOOD_ONE 
CPY #0 ; Si ler octet du bloc 
est un zéro, alors 
BEQ NXTBLK ; ça ne peut pas etre un 
index 
CONT 
JSR PBLOCK : Affiche le numéro de 
bloc 
JMP  NXTBLK ; Passe au prochain bloc 
mo om om om oo no om oc 
* Si le bloc peut etre index, 
afficher 
Ro om om cm mo mo mm me mo ou mo os 
PBLOCK 
LDX BLOC DEP : Affichage en décimal du 
numéro de bloc, 
LDA BLOC DEP+1 ; suivi d'une virgule 
pour tous les séparer 
JSR LINPTR 
JSR NORMAL 
LDA #", 
JMP COUT 
Ko oo oo mm me om nc om eo ee en 
* Passage au prochain bloc 
oo om on ou ou ou ue ou oo cu mo oo mm 
NXTBLK 


INC BLOC DEP : Passe au prochain bloc 
tout en vérifiant 
BNE EOD ; qu'on ne sort pas des 
limites fixées par 
INC BLOC DEP+1 ; la commande. De toute 
façon, si on 
EOD LDA BLOC DEP+1 ; demande à lire plus de 
blocs qu'il n'en 
CMP TOT_BLOC+1 ; existe, une erreur se 
produira. Il n'est 
BEQ EOD1 : donc possible de donner 
qu'on nombre 
GO_LIT_BL JMP VC_PARM ;: inférieur au nombre 


maximum 

EOD1 LDA BLOC DEP 

CMP TOT BLOC 

BCC GO LIT BL 
K=mmmmmmmm…____m_memme… 
* Sortie de commande 
Hu ous one ue ue on ue ee mm me mm mn me en en en mue me me me ee mme meme meme men men me en us 

CLC 

RTS 
K-mmmmmmmmmmmcmmmmmmmmcemn———— 
* Lecture du nombre pointé par TXTPTR 

















320 RD_NBR 
321 


322 


323 


ERR_STX 


ERR EXIT 


10 ERR 


NO_ERR 


PARM 


BUFF 
BLOC_DEP 


COMMAND 
TOT_BLOC 
COMPTEUR 
TEMP 


FIN 
LONG 


LDA 


CMP 
RTS 


#0 ; FRMNUM doit tomber sur 
un chiffre. 

(TXTPTR),YŸ ; S'assure bien que s'en 
est un, mais sans 

#'0 ;: passer par CHRGET, qui 
modif. TXTPTR. 

ERR_STX : Si on a un chiffre, 


c'est bon, car FRMNUM 
#': ;: s'arretera à la fin du 
nombre. 
NO_ERR ; Sinon, on signale une 


erreur de syntaxe. 


#SYNT_ERR ; Signaler soi-meme, car 


FRMNUM tend 

#$527 

1O_ERR 

#528 

10 ERR 

BADCALL ; à déconnecter ProDOS 
lorsqu'il génère une 

JMP PRINTERR ;: Erreur. 

INVERSE 

CONT 

FRMNUM ; Si on a bien un nombre, 
on le lit, le met 

GETADR ; dans FAC puis le met 
entier dans LINNUM 

LINNUM 

LINNUM+1 

TXTPTR au début de IN 

#<IN : Cette fois, on se place 
sur le buffer du 

#>IN : Clavier. La ligne de 
commande est entière 

TXTPTR : Et stockée en 


caractères ASCII avec le 
TXTPTR+1 ; Dernier bit à 1 


#CR 


$60 
0000 
0000 


"INDEX" 


FIN-START+$0100 


387 


389 
390 


392 
393 


396 
397 


401 
402 


419 


421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 


443 
444 


445 


LST ON 
LST OFF 


ORG $2100 


RRRRRRERRRRERRRRRRRRRRRRRRRARRÉRRRHRERRÉXR 


* BLOC: Permet de lire ou écrire un * 
block de disquette. * 


* 


* 


RRRRRRERRRRRRÉRRRRRRÉRRRRRRRRRRRRRRRÉRRRRER 


# Syntaxe: 

* 

* RBLOC <numéro> 
* WBLOC <numéro> 
* 

* Labels 
SYNT_ERR = $40 
PTR - $48 
LINNUM = $50 
NO BUFF = $56 
STREND = $6D 
FRETOP - $6r 
OLDTXTPTR = $79 
READ BLOCK = $80 
WRITE_BLOCK = $81 
CR = $8D 
BUFADR - $AB 
CERGET - $B1 
TXTPTR - $B8 
IN _ $0200 
MLI - $BF00 
PRINTERR = $BEOC 
XTADDR - $BES50 
XLEN = $BE52 
XCNUM = $BE53 
PBITS = $BE54 
DEFSLT = $BE3C 
DEFDRV _- $BE3D 
VPATH1 = $BE6C 
BADCALL = $BE8B 
SYSERR = $BFOF 
FRMNUM = $DD67 
GETADR - $E752 
PRBL2 = $F94A 
PRBYTE = $FDDA 
CROUT - $FD8E 
PRNTXY3 = $FD99 
COUT = $FDED 


[, S<slot>] 
[, S<slot>) 


{,D<ärive>) 
{,D<àrive>) 


Code de 'SYNTAX ERROR' 
Pointeur temporaire 
FAC devenu entier dans 
deux octets 

; Code de 'NO BUFFER 
AVAILABLE" 

; Page où commence la 
zone libre 

; Page où se termine la 
zone libre 

; Sauvegarde de TXTPTR 

;: Code de l'instruction 
MLI 

; Code de l'instruction 
MLI . 
;: Code de Retour à la 
ligne 

; Pointe sur le début du 
buffer 

: Routine de prise de 
caractère 

; Pointeur utilisé par 
FRMNUM 


.. 


: Buffer clavier 


: Point d'entrée du MLI 

: Affiche l'erreur, met 
dans À son code 

; Adresse de la routine 
externe 

; Longueur du nom de la 
commande moins un 

; Numéro de commande ($00 
= externe) 

: Bits autorisant 
l'utilisation 
d'opérandes 

;: Slot par défaut 

: Drive par défaut 

;: Adresse de la ligne de 
commande 

: Code d'erreur en numéro 
d'erreur BI 

: Numéro d'erreur systeme 


: Evalue la formule 
pointée par TXTPTR 

; FAC -> LINNUM 

: Affiche X espaces 

: Affiche l'accumulateur 


; Retour à la ligne 

: Affiche X et Y en hexa, 
suivis de "-" 

: Affiche le caractère 
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446 RTS = 
447 
448 
449 * 
450 #— 
451 
452 START CLD 
453 LDA 
454 LDA 
455 V_OLDCMD LDA 
456 LDA 
457 STA 
L 458 LDA 
459 STA 
460 
461 LDY 
462 LDA 
463 STA 
464 
465 LDX 
: 466 LDA 
Al 
467 STA 
468 
469 INX 
470 INY 
471 COMPAR  LDA 
472 CMP 
473 BNE 
474 INX 
475 INY 
476 CPY 
477 BCC 
478 BCS 
479 
480 NO CMD 
481 DEC 
482 BEQ 
483 LDX 
484 LDY 
485 BNE 
486 
487 NO CMDI 
488 SEC 
489 JMP 
490 
AOL A 
492 * 
493 2 
494 
495 BONNECMD 
496 LDA 
497 LDX 
498 DEX 
499 BNE 
500 LDA 
501 MET_CMD STA 
502 


contenu dans À 
$FF58 ; Contient un RTS 


; Obligatoire pour ProDOS 

#>FIN+$0100 ; Convention pour 
CMDLOAD 

#>LONG-$0100 

RTS 

VPATHI ;: Pointe vers commande 
pour déterminer si 

PTR ; c'est la notre 

VPATH1+1 

PTR+1 

#0 ;: Cela indique longueur 
de la ligne tapée 

(PTR),Y 

CMD_LEN 

#0 : Cela indique nombre de 
commande possibles 

COMMAND,X ; que BLOC peut 
comprendre et traiter. 

NBR_CMD ; (en fait: 2) 


(PTR),Y ; C'est RBLOC ou WBLOC ? 

COMMAND, X 

NO_CMD ; non, alors retour au 
ProDOS 
; Oui, prochain caractère 
de chacune des 
; commande: tapée et 
possible. 

#5+1 : Commande ne possède que 
5 caractères 

COMPAR ; Continue la boucle de 
comparaison 

BONNECMD ; C'est la bonne 


commande... 


NBR_CMD ; Y-a-t-il une autre 
commande possible ? 

NO _CMDI1 # Si Z2=1 alors non, on 
sort. 

#6 ; Sinon, oui, alors on 
vise l'autre, 

#1 ; et on redémarre sur la 
commande tapée 


COMPAR : Puis on les compare 
: Indique que la commande 
n'est pas à nous 
(V_OLDCMD+1) 


#READ_BLOCK ; On décide 
arbitrairement de lire 
NBR_CMD ; Quelle commande a-t-on 
lu ? 
; La lère ou la 2nde ? 
MET_CMD ; Z=0 signifie la lère, 
donc RBLOC 
#WRITE_BLOCK ; Sinon, c'est WBLOCK 
GOTO_MLI+3 ; On stocke ça dans la 
table des paramètres 


504 
505 
506 
507 


508 


516 


V_SUITE 


Va analyser la commande 
me mm 

DEY ; On passe par 
l'analyseur de ProDOS, 
car 

DEY : L'autre méthode ne 
fonctionne pas. 

STY XLEN ; Comme on analyse les 
paramètres, ce 

LDA #0 ; n'était pas utile de le 
faire. 

STA SYSERR 

STA  XCNUM 

STA PBITS 

LDA #0 

STA PBITS+1 

LDA SUITE 

LDA V SUITE+1 

STA XTADDR 

LDA V_SUITE+2 

STA XTADDR+1 

CLC 

RTS 


ERR STX 


NO_ERR 


TXTPTR ; Sauvegarde de TXTPTR 
pour que l'execution 

TXTPTR+1 ;: d'un programme Basic 
puisse se continuer. 


OLDTXTPTR 

OLDTXTPTR+1 

XLEN ; Où se trouve la fin du 
mot de commande ? 
: Cela sert à lire la 
suite: nu de bloc, 
; puis les paramètres 
éventuels (S et D) 
; Pour cela, on se sert 
de TXTPTR: 
; On additionne la 
longueur du mot-clé 

VPATH1 ; (RBLOC ou WBLOC) au 
début de la ligne de 

TXTPTR ; commande. On a alors 
début opérande. 

VPATH1+1 ; C'est ce qu'on met en 
TXTPTR. 

#0 

TXTPTR+1 

#0 : FRMNUM doit tomber sur 


un chiffre. 

(TXTPTR),Y ; S'assure que s'en est 
un, mais sans 

#'0 ; passer par CHRGET, qui 
modif TXTPTR. 


ERR_STX ; Si on a un chiffre, 
c'est bon, car FRMNUM 

+": : s'arretera à la fin du 
nombre. 

NO_ERR : Sinon, on signale une 


erreur de syntaxe. 
#SYNT_ERR ; Il faut la signaler, 

car FRMNUM tend 
NO_ERR ; à déconnecter ProDOS 

lorsqu'il génère une 
ERR_EXIT ; Erreur. 


FRMNUM ;: Si on a bien un nombre, 
on le lit, le met 

GETADR ; dans FAC puis le met 
entier dans LINNUM 


LINNUM est numéro du 


LINNUM ; 

















559 


560 


561 
562 
563 
564 
565 
566 
567 


568 
569 
570 
571 
572 
573 
574 


575 


bloc sur lequel 


: Cette fois, on se place 


caractères ASCII avec le 


3 


Scanne toute ligne à la 


: Virgule, pour voir s'il 


: Prend le caractère de 


;: C'est le changement de 


; C'est le changement de 


; Transformé en chiffre 


: Pour effacer le RTS de 


; Dont on ne garde que le 


; Que l'on décale 2 fois 


; Puis on y met aussi les 


; Puis on décale le tout 


; C'est le numéro d'unité 


STA BUFF+2 ; On va maintenant 
travailler. 
LDX LINNUM+1 ; Donc on le met dans 
table de paramètres 
STX BUFF+3 
me ee me ne ee ce eu os cm ue eu mm 
* Lecture des paramètres s'il y en a 
Nmmmmmmmmmmmmmemœmememmememmme… ss... …… …… 
LDY #<IN 
sur le buffer du 
LDX #>IN : Clavier. Ligne de 
commande y est entière 
STY TXTPTR ; Et stockée en 
STX TXTPTR+1 ; Dernier bit à 1 
JSR CROUT ; Revient à la ligne 
CH_VRGL JSR CHR GET L 
recherche d'une 
CMP #"? “ 
y a un paramètre. 
BNE CH_VRGL 
JSR CHR GET 
commande 
CMP #"s" 
Slot ? 
BNE TEST _D ; Non, alors peut-etre 
est-ce le drive ? 
JSR CHR_GET ; Quel est le nouveau 
Slot ? 
AND ##00000111 ; On le transforme en 
chiffre hexa 
STA DEFSLT ; À mettre chez ProDOS 
JMP CH VRGL 
TEST_D CMP #"D" 
Drive ? 
BNE ERR_STX 
JSR CHR GET ; Quel est le nouveau 
drive ? 
AND ##00000011 
hexa 
STA DEFDRV 
JMP CH_VRGL 
EOL 
PLA 
CHR_GET 
PLA 
Kmmmmmmmmmmmm___…_……-… 
* Modification du numéro d'unité 
Rmmmmmmmmmmmmmmmmmmmmmmmmemmm…—— 
LDA DEFDRV : On prend le numéro de 
drive 
AND #%00000010 
2ème octet 
ASL 
à gauche 
ASL ; Pour obtenir ceci: 
0000D000 
ORA DEFSLT 
bits du slot 
ASL ; On a alors ceci: 
0000DSSS 
ASL 
4 fois à droite 
ASL ; Pour avoir ceci: 
DSSS0000 
ASL 
STA RWNBLP+1 
LDA OLDTXTPTR ; Et on récupère le 
TXTPTR du programme 
LDX OLDTXTPTR+1 ; Pour que celui-ci 


puisse reprendre son 


STA TXTPTR ; Execution normalement. 
STX TXTPTR+1 
Km me mm mm em mm om cm me mm mm om 
* Lance les opérations 
Eee mme om me om 
PARM_AD 
LDA RWBLP ;: Ceci est nécéssaire 
étant donné que la 
LDA PARM AD+1 ; Routine est relogée. 
LDX PARM AD+2 
STA PARM P 
STX PARM P+1 
Ke ou om ue ee eme on meme eme me me eee me mn ee me me ne mue one eue one ee eue ne eue ue ee ee me mm 
ià Cherche un buffer valable 
K=mmmmmmm_______ms-.sm- x. 
LDX STREND+1 ; On va se placer dans 
espace libre, entre 
INX : Variables dimensionnées 
et chaines de 
STX BUFF+1 : Caractères. 
INX 
CPX FRETOP+1 
BCC RW BLOC 
LDA #NO BUFF : S'il n'y a pas deux 
pages minimum de 
JMP ERR EXIT ; Disponibles, alors ‘NO 
BUFFER AVAILABLE" 
Ko ou en eue eue eue me eue eue mu me ue me me mn en mn eee ee mue on eu due ee me ee ue ee me en eee me me 
* CHRGET amélioré 
Ko m me mmm me ee men eu me am ee en © nn en ee ee me me on me eee =e ee œe me ee me en me me 
CHR_GET JSR CHRGET : Prend le carctère 
suivant, 
CMP #CR ; Si Retour Chariot la 
ligne est finie 
BEQ EOL ; Oui, alors End Of Line 
JMP COUT ; Non, alors on affiche, 
puis on retourne 
Kms 
W Va lire ou écrire le disque 
Ke om ee ee ee me mue eue ue one ae ee on me me me me me me me ee me me me mme me me meme me me os me ee me 
RW_BLOC 
JSR GOTO MLI ; Demande à executer la 
commande tapée 
BCC EXIT ÿ Si C=1, erreur, sinon 
ça va 
ERR EXIT 
JSR BADCALL ; On prépare le code 
d'erreur 
JMP PRINTERR * Puis on l'affiche... 


AFF_CTRL 


JSR 


LDX 
STX 
LDY 
STY 


LDX 


LDY 
JSR 
LDX 


CROUT ; Saute à la ligne après 
rappelé le bloc 

BUFF ; Transfère l'adresse du 
buffer au pointeur 

BUFADR 

BUFF+1 

BUFADR+1 

BUFADR : Affiche adresse du 
début de la ligne qui 

BUFADR+1 Fr suit. 

PRNTXY3 

#1 ; Puis fait un espace 
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BCC AFF CTRL 


680 LDY #0 ; On se place au début de re 
la ligne PR 
681 AFF CODE LDA (BUFADR),Y ; Puis on lit les octets 714 * Sortie de la commande 
un par un MAS RER ——— 
682 JSR PRBYTE 716 
683 LDA #" " ; Met un espace entre 717 CLC : Il n'y a pas eu de 
chaque code problème 
684 JSR COUT 718 RTS 
685 INY ; Passe au prochain octet 719 
686 CPY #8 ; On en fait 8 par ligne HAOMREESS SE nmmmeee eme e 
pour ne pas etre TaT Divers 
687 BNE AFF CODE ; désorienté. 722 X==mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm————— 
688 723 
689 LDX #1 : Met 1 esp entre codes 724 BRK 
et caractères 725 GOTO MLI 
690 JSR PRBL2 726 JSR MLI ; Puis appel à celle-ci 
691 via le MLI 
692 LDY #0 ; Revient en début de 727 DFB $80 ; Code de la commande 
ligne pour afficher 728 PARM P DA RWBLP : Adresse de la table des 
693 AFF _ CAR LDA (BUFADR),Y ; tous les caractères paramètres. 
correspondants. 729 RTS 
694 AND #%01111111 ; On filtre afin de pas 730 
avoir de caractères 731 COMMAND DFB 02 ; Il y a deux commandes 
695 CMP #$20 ; géne affichage possibles 
parcequ'interprétés par 732 ASC 'RBLOC' ; Liste des commandes 
696 BCS NORM ; la carte 80 colonnes disponibles 
(entre autre) 733 ASC 'WBLOC! 
697 LDA #'. 734 
698 NORM ORA #%10000000 735 RWBLP DFB $03 ; Il y a trois paramètres 
699 USR COUT 736 DFB S60 ; Numéro d'unité ($E0 
700 INY : Prochain caractère de pour S6,D2) 
le série 737 BUFF DA $1000 ; Adresse du buffer 
du LE FAST nie ‘e 738 DA $0000 ; Numéro du bloc 
702 BNE AFF CAR 739 
103 3 ; 740 CMD LEN HEX 00 ; Longueur de la ligne de 
704 JSR CROUT : Passe à la ligne LA rade 
ne LDA BUFADR eut 1 741 NBR CMD HEX 00 ;: Compteur pour savoir 
: ge le pointeur quelle commande 
pour avoir une 742 
707 CLC ; nouvelle série de 8 743 FIN = * 
SET LE. 744 LONG =  FIN-START+$0100 
708 ADC #8 745 
709 STA BUFADR 746 LST ON 
710 CMP #$B0 : 176 octets suffisent 


Éditeur Plein Écran EPE 5 1 


Apple /le, /le+, [lc, Le Pacha 
DOS 3.3 & ProDOS 















Listez vos programmes Basic en avant et en arrière. 
Modifiez, insérez, effacez des caractères en plein écran 
sans relire les lignes. 

Recherchez toute chaîne de caractères. 
Choisissez vous-même les codes de contrôle d'EPE. 


Modifiez E.P.E. : le fichier source est sur la disquette. 


200,00 F TTC franco (bon de commande page 74). 
Échange contre version 2.2 ou 5.0 : 80,00 F 
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C.L.M. & BBDO. 


On trouve plus facilement 
avec 10 ans 


Certaines évolutions sont aussi 
importantes que des révolutions. 


Le plus difficile quand on débute, 
c'est de débuter. Car toutes les 
propositions d'emploi demandent une 
certaine expérience. Chercher un 
emploi est donc un problème 
insoluble. Pas pour l'Apple IIGs, il 
débute avec 10 ans d'expérience. 

Comment ? C’est très simple, 

il a une architecture double : un 
nouvel ordinateur puissant traitant 
le graphique et le son, entoure 

un Apple If classique et miniaturisé. 
Il profite ainsi de 10 ans de 
développement de logiciels et 
d'expérience. Un grand progrès réalisé 
en partie grâce au microprocesseur 
65C816, un 16 bits descendant du 
65C02 de l'Apple II. LApple HGs fonc- 
tionne à deux vitesses : 2,8 MHz en 
mode natif; en mode émulation 
(c'est-à-dire lorsque vous utilisez un 


programme de votre ancien Apple Il) 
vous avez le choix entre 1 MHz et 
2,8 MEz. 


Débuter connu, c’est 16.000 propositions 
d'emploi. 


Avec l'IWM (Integrated Woz 
Machine*) l'Apple Ilcs peut recevoir 
indifféremment des lecteurs de 
disquettes 3,5 pouces 800 Ko ou des 
lecteurs 5,25 pouces 140 Ko, ou les 
faire cohabiter, ce qui contribue à vous 
faire profiter de la plus grande 
bibliothèque de logiciels du monde. Le 
nombre de 16.000 logiciels étant estimatif 
car la seule chose qu'un Apple IIGs soit 
incapable de calculer, c'est le nombre 
d'emplois qu'il est capable de tenir. 

Avec le nouveau système 
d'exploitation ProDOS, Apple IIGs 
permet la hiérarchisation des fichiers 
et des catalogues à la manière de 


* En hommage à Steve Wozniak, co-fondateur de la Société 
Apple et créateur de l'Apple II. 


pra 
> Apple Ilcs 
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expérience. 
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Macintosh, et la connexion de 
nouveaux périphériques. 


G ets, cela veut dire Graphique et son. 


L'imagination débridée des 
développeurs suffira-t-elle pour utiliser 
les 4096 nuances de couleurs 
disponibles ? C’est probable. Ce qui est 
certain, c’est qu’une résolution de 640 
points sur 200 lignes pour 4 couleurs, 
320 points sur 200 lignes pour 16 
couleurs va donner beaucoup de relief 
à certaines démonstrations. Si vous 
n’en croyez pas VOs yeux, Vous n’en 
croirez pas vos oreilles non plus. Le 


* coprocesseur “son” choisi par 


Apple a déjà une brillante carrière 
derrière lui puisqu'il est employé par 
les plus grands synthétiseurs du 
marché. C’est l'ENSONIQ, capable de 
générer 16 voix, 


un emploi quand on débute 


et il ne lui manque même pas la parole. 


Les relations nécessaires pour réussir. 





En 10 années, l'Apple II a eu tout 
le loisir de se faire d'excellentes relations 
de travail, imprimante, modem, disque 
dur, que l'Apple IGs continuera à 
entretenir et développer ; celui-ci peut 
désormais être connecté au réseau 
AppleTalk et gérer la LaserWriter 
réservée jusqu'à présent à Macintosh. Il 
peut aussi recevoir le disque dur SCSI. 

L'AppleIIGs possède 7 connecteurs 
d'extension permettant, à l'aide d’une 
multitude de cartes d’interfaces, de le 


relier à tous les types d'unités périphériques. 


Acheter un Apple, c'est entrer dans 
le Club Apple pour échanger des informa- 
tions, accéder au support technique par 
téléphone 7 jours sur 7, ou aux services 
télématiques du Club. 


Apple présente PApple Ilcs. 


\pple, Apple 1165, ProDOS, Macintosh, Apple Talk, LaserWriter et GS Paint sont des marques déposées par Apple Computer Inc. 








PageMaker : 
essai ‘routier’ 


PageMaker, réalisé par Aldus et 
distribué par Ise Cegos, est le 
logiciel qui fit le succès de l'édi- 
tion électronique sur Macintosh. 
Il se présente sous la forme de 
deux disquettes (Démarrage et 
Programme) accompagnées d'une 
documentation et d'une disquette 
de démonstration ‘visite guidée”. 
Il peut être utilisé sur un 
Macintosh 512Ko mais le travail 
sera plus aisé avec un Mac Plus. 
On peut l'installer sans difficulté 
sur un disque dur, l'original 
devant être introduit momenta- 
nément à la mise en route. 


Démarrer avec 
PageMaker 


Au démarrage, le menu Fichier 
permet soit d'ouvrir une publi- 
cation (nom donné au documents 
créés par PageMaker) existante, 
que l'on retrouve dans l'état où 
on l'avait laissée, soit d'ouvrir 
une nouvelle publication. Dans ce 
cas, une fenêtre de dialogue (For- 
mat d'impression) apparaît. Elle 
permet de déterminer le format de 
papier utilisé, l'orientation (pay- 
sage, portrait), l'option recto/ 
verso, le nombre de pages ainsi 
que les marges. 


Les format et orientation sont 
fixés définitivement. Les marges 
peuvent être modifiées ultérieure- 
ment mais cela oblige générale- 
ment à revoir toute la mise en 
page. En revanche, il est facile de 
supprimer ou d'ajouter des 
pages, sachant qu'une publication 
ne peut pas dépasser seize pages. 
Sur un 512Ko il sera même 
préférable, en raison de la capa- 
cité des disquettes, de ne pas aller 
au-delà de huit pages. Pour un 
document plus long, il suffira 


Philippe Mathieu 


d'enchaîner plusieurs publica- 
tions, la pagination pouvant aller 
jusqu'à 999. 


L'éditeur de texte 
interne 


PageMaker offre des possibilités 
d'édition de texte maïs, visible- 
ment, cet éditeur interne n'a pas 
été conçu pour être l'atout majeur 
du logiciel ! Il permet la création 
de textes autonomes ; cependant 
attention, il lui arrive de temps en 
temps (surtout avec la version 
1.0) de ne pas respecter les 
marges et colonnes. On peut 
également l'utiliser pour modifier 
(insertion, suppression, etc.) des 
documents provenant de logiciels 
extérieurs mais, là encore, pru- 
dence : les résultats sont parfois 
aléatoires en ce qui concerne la 
mise en page. 

Il est préférable de réserver 
l'usage de l'éditeur à l'ajout de 
titres ou de légendes, et de passer 
par un traitement de texte clas- 
sique pour créer des textes longs. 
D'ailleurs, PageMaker ne prétend 
pas au titre de traitement de texte. 


Un menu déroulant (Typo) per- 
met de choisir le style des carac- 
tères (standard, gras, italique..….), 
d'inverser leur ‘couleur’ et de 
déterminer l'alignement et la 
justification. Des raccourcis exis- 
tent qui accélèrent certains de ces 
choix. On peut, à travers une 
fenêtre de dialogue ouverte par la 
commande Caractères, choisir la 
police de caractères, la taille, la 
position (indice, exposant) et 
l'interlignage. 

Il est également possible par ce 
menu de déterminer la tabulation 
(commande Tabulation). Une 
règle apparaît alors à l'écran, 


comportant un repère d'inden- 
tation ainsi que des taquets de 
tabulation gauche, droite, centrée 
ou décimale (cherchez bien ces 
taquets, ils sont cachés sous le 
repère d'indentation !). 

On peut regretter l'absence de 
certaines fonctions classiques de 
traitement de texte : recherche/ 
remplacement, glossaire. En 
revanche, PageMaker propose un 
trait d'union ‘aléatoire’ permettant 
une césure automatique des mots 
en cas de besoin (colonnes trop 
étroites). 


Les outils 
semi-graphiques 


Une trousse à outils, toujours 
présente à l'écran, permet d'ef- 
fectuer toutes sortes de tracés 
(lignes, rectangles, carrés, cer- 
cles, ovales), la sélection du type 
de trait et de fond se faisant par 
deux menus déroulants. Les 
commandes Premier plan et 
Second plan du menu Édition 
(analogues à celles de MacDraw) 
se montrent très pratiques pour la 
réalisation d'encadrements variés. 


Les graphiques et dessins placés 
sur une page peuvent être mo- 
difiés. Il faut pour cela les sélec- 
tionner à l'aide de la souris. Des 
poignées apparaissent alors, qui 
permettent de les agrandir ou de 
les réduire avec le pointeur en 
forme de flèche. Attention, ce 
genre de modifications, en dé- 
formant les caractères, rend par- 
fois les légendes illisibles. 


On trouve aussi dans la trousse 
des ciseaux permettant de couper 
des graphiques ou dessins. Ces 
“découpages” se font sans perte 
d'information car il est possible, 
toujours avec les ciseaux, de 
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revenir à l'état initial de l'image. 


Placer un 
document 


L'éditeur de texte et les outils 
sont des accessoires. PageMaker 
est essentiellement conçu pour 
mettre en page des documents 
créés avec d'autres logiciels et 
c'est bien sur ce point qu'il se 
montre le plus performant. 


La mise en place de ces do- 
cuments se fait soit par la 
commande Placer du menu Fi- 
chier, soit en passant par le 
Presse-papiers. L'utilisation de la 
commande Placer ouvre une 
fenêtre de dialogue permettant de 
choisir le document désiré, ce 
document devant se trouver sur 
une des disquettes en place ou sur 
le disque dur. Le choix d'un 
document fait apparaître un 
pointeur dont la forme varie selon 
le type du document. Il ne reste 
plus qu'à le placer à l'endroit 
voulu. 


Les documents provenant d'un 
logiciel de traitement de texte 
(MacWrite, Word...) peuvent être 
placés directement en conservant 
la mise en page originale. Il est 
également possible de modifier 
cette mise en page par la création 
de colonnes et en utilisant la règle 
de tabulation. Nous reparlerons 
de l'utilisation de ces colonnes 
qui constituent un des attraits de 
PageMaker. 


Pour un tableau, les choses se 
passent un peu moins simple- 
ment, le document voyant le plus 
souvent sa tabulation perturbée. 
Si votre tableur possède une 
fonction ‘Copie de l'image’ 
(comme Excel), aucun problème, 
‘le tableau est conservé dans le 
Presse-papiers avec ses tabula- 
tions. Si ce n'est pas le cas 
(comme, par exemple, avec 
Multiplan) le tableau se trouvera 
également dans le Presse-papiers, 
mais les tabulations seront 
perdues. Enfin, si votre tableur 
permet l'enregistrement sous 
forme ‘texte’, vous pourrez 
utiliser la commande Placer mais, 
là encore, vous devrez revoir la 
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tabulation. 


Les dessins (type MacPaint ou 
MacDraw) sont également acces- 
sibles par la commande Placer ou 
à partir du Presse-papiers (pour 
MacDraw le document doit être 
enregistré en format ‘Picture’). 
Ces dessins sont aisément 
modifiables : agrandissement, ré- 
duction, découpage grâce aux 
outils de la trousse. 


La mise en page 


Au démarrage, après avoir choisi 
le format d'impression, la pre- 
mière page s'affiche en taille 
écran. Ce format donne une vue 
d'ensemble de la page mais les 
textes sont illisibles. D'autres 
formats existent : taille réelle, 
réduction à 50% ou 70% et 
agrandissement à 200%. On trou- 
ve au bas de l'écran les icônes de 
chaque page ainsi que les icônes 
de la maquette. 


La réalisation d'une page à l'aide 
de PageMaker se déroule en trois 
étapes : composition de la page en 
disposant divers repères, place- 
ment des documents extérieurs, 
finition à l'aide des outils de la 
trousse et de l'éditeur de texte. 


La composition de la page se fait 
en général en taille écran (la page 
est alors entièrement visible). On 
peut demander l'affichage de 
règles horizontales et verticales 
qui permettent de placer des 
repères (en tirant avec la souris à 
partir des règles). Ces repères 
sont sans effet sur la disposition 
des éléments de la page, mais se 
montrent très commodes pour le 
travail, la commande Magnétisme 
des repères collant automa- 
tiquement contre le repère tout 
document placé à proximité. Le 
point d'intersection des règles, 
point zéro des graduations, peut 
être placé en n'importe quel en- 
droit de la page, ce qui aidera au 
centrage de certains documents. 


Il est également possible de placer 
des repères “actifs” : les colon- 
nes, dont on choisira le nombre et 
l'espacement par la commande 
Disposition des colonnes. De 
plus, leur position et leur largeur 
pourront être modifiées par la 


souris. En utilisant cette option, 
tout texte placé sur la page perdra 
sa tabulation et sa justification 
originale pour se dérouler à l'in- 
térieur de la colonne, avec la mise 
en page que vous aurez choisie. 
Un texte trop long pour une 
colonne pourra être poursuivi 
dans la suivante, sans difficulté, à 
l'aide du pointeur. 


Un texte qui vient d'être placé sur 
une page est entouré de poignées 
de sélection qui permettent, en 
tirant avec la souris, de le décou- 
per en pavés que l'on pourra 
déplacer indépendamment les uns 
des autres sans que le texte perde 
sa continuité (si l'on insère du 
texte dans un pavé, l'excédent est 
transféré dans le pavé suivant). 
De la même manière, il est 
possible de regrouper plusieurs 
pavés en un. Pour faire apparaître 
ces poignées il suffit de sélection- 
ner le pavé avec la souris. 


Le placement de dessins ou 
graphiques n'est pas affecté par 
les colonnes, mais l'utilisation du 
Magnétisme des repères permet 
des alignements parfaits. Il est 
possible d'intégrer ces images au 
texte soit en déplaçant des pavés, 
soit en modifiant la disposition 
des colonnes. 


Ces opérations de placement des 
documents s'effectuent de préfé- 
rence en taille réelle, la taille écran 
ne donnant pas une vision exacte 
du résultat. Evidemment, en taille 
réelle, la page n'apparaît pas tota- 
lement (à moins de disposer d'un 
écran pleine page) mais on peut 
se déplacer à l'aide des ascen- 
seurs habituels du Macintosh. 


En taille écran, on voit que la 
page n'occupe pas toute la place 
disponible. Cet espace libre est la 
table de montage (également utili- 
sable en taille réelle). On effec- 
tuera sur cette table le bricolage : 
modification des documents, 
construction de certains motifs 
graphiques... En effet, le travail 
sur un élément d'une page se fait 
avec la souris, le risque étant 
alors de déplacer un élément cor- 
rectement placé lorsqu'on veut en 
modifier un autre. Le travail sur 
la table de montage permettra 
d'éviter ces erreurs de manipu- 
lation, en particulier dans le cas 











de pages complexes comportant 
un grand nombre d'éléments. 


La maquette 


Si certains éléments doivent se 
trouver sur toutes les pages d'une 
publication : repères, encadre- 
ments, logos, pagination... il 
suffit de créer une maquette, 
accessible par l'icône recto (ou 
deux icônes recto et verso, selon 
le choix du format d'impression). 
Toutes les fonctions de 
PageMaker sont disponibles sur 
ces maquettes. 


Les éléments placés sur la ma- 
quette se retrouveront sur toutes 
les pages de la publication, mais 
il est possible de les faire dispa- 
raître de certaines pages par la 
commande Supprimer les motifs 
de la maquette. 


Dans le cas d'une publication 
recto/verso, on définit deux ma- 
quettes qui peuvent être différen- 
tes. Il est possible, pour les com- 
parer, de demander l'affichage de 
la double page. Cependant, on ne 
pourra pas travailler dessus, tous 
les outils et commandes étant 
alors inactivés. Cette commande 
Afficher la double page est 
utilisable pour comparer deux 
pages se faisant face dans la 
publication. 


Le repère de foliotage peut se 
placer en tout point de la maquette 
et il est possible , dans le cas 
d'une publication recto/verso, de 
ne le placer que sur une des deux 
maquettes. La numérotation ne 
peut se faire qu'en chiffres 
arabes. 


La manipulation 
des pages 


On a vu qu'il est facile de sup- 
primer une page ou d'en insérer 
une nouvelle (toujours dans la 
limite de seize). Toutefois, dans 
le cas d'une publication recto/ 
verso, attention à la parité ! En ef- 
fet si les maquettes des pages pai- 
res et impaires sont différentes, la 
mise en page peut être perturbée. 


Il est possible d'intervertir des 





pages ou de recopier une page sur 
une autre. Il suffit de sélectionner 
toute la page (en taille écran) puis 
de la coller sur une autre page. 


L'impression 


PageMaker admet de nombreuses 
imprimantes (ImageWriter, Laser 
Writer ou toute imprimante ou 
photocomposeuse acceptant le 
langage PostScript) mais l'im- 
pression n'est pas très rapide. 
C'est bien sûr avec une impri- 
mante à laser que l'on obtiendra 
les meilleurs résultats. 


Avec la Laser Writer, différentes 
options sont disponibles : le lis- 
sage, qui améliore la qualité d'im- 
pression des textes et graphiques 
(soyez patient, l'impression est 
plus lente), des réductions ou 
agrandissements allant de 15% à 
1000%, le montage en taille ré- 
duite de toutes les pages sur une 
même feuille, permettant une vue 
d'ensemble de la publication. Le 
résultat obtenu sur le papier est 
identique à ce que vous voyez à 
l'écran en taille réelle (What You 
See Is What You Get, le 
WYSIWIG à la mode !) mais, 
bien entendu, les différents repè- 
res et règles n'apparaissent pas. 
On observe cependant quelques 
différences entre l'écran et l'im- 
pression laser, particulièrement 
pour les styles autres que stan- 
dard ainsi que pour les mélanges 
de textes avec des dessins de type 
MacPaint. 


Apprendre à 
utiliser PageMaker 


PageMaker est accompagné d'une 
disquette ‘visite guidée’ qui per- 
met un premier contact avec le 
logiciel. La documentation com- 
mence également par une visite 
guidée suivie de l'exposé des dif- 
férentes fonctions. Elle est claire 
et bien traduite, nous n'y avons 
pas décelé d'erreur. Elle est com- 
plétée par un glossaire et un 
index. 


Le logiciel dispose en outre d'une 
fonction assistance facilement uti- 
lisable et suffisamment explicite. 


Avantages et 
faiblesses 


Au rang des faiblesses, nous pla- 
cerons en premier lieu l'éditeur de 
texte aux fonctions limitées. À un 
moment où les logiciels de traite- 
ment de texte offrent de plus en 
plus de possibilités de mise en 
page, un logiciel d'édition élec- 
tronique devrait permettre un trai- 
tement aisé des textes. 


On regrettera également de ne pas 
pouvoir concevoir plusieurs ma- 
quettes pour une même publica- 
tion ainsi que l'impossibilité de 
travailler sur plusieurs pages si- 
multanément. La limitation à seize 
pages d'une publication est elle 
aussi assez gênante. 


Parmi les points forts de 
PageMaker, on comptera tout 
d'abord sa grande simplicité 
d'utilisation lors du placement de 
documents externes. D'une ma- 
nière générale, les différentes op- 
tions s'utilisent commodément : 
création des maquettes, réduction 
ou agrandissement des pages, 
disposition des colonnes et repè- 
res dont le magnétisme est parti- 
culièrement efficace. 


Autre avantage : le découpage des 
textes en pavés qui offre, avec un 
peu d'habitude, de nombreuses 
possibilités. 


Un bon point aussi pour la 
trousse, toujours accessible, et 
dont les outils semi-graphiques 
sont intéressants. 


Conclusion 


PageMaker est tout à fait satisfai- 
sant dès lors qu'il s'agit de re- 
grouper des documents de prove- 
nances variées en leur ajoutant 
des encadrements, traits, etc. 
l'éditeur de texte n'étant utilisé 
que pour écrire titres et légendes 
ou modifier légèrement les textes. 


Finalement, c'est quand même 
vous qui ferez qu'une page sera 
belle et agréable à lire ! 
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Les nouveau-nés : 
Mac SE & Mac II 


À l'issue de la récente annonce des nouveaux venus 
de la gamme Apple, nous vous proposons ici une 
présentation qui ne se laissera pas entraîner par notre 
enthousiasme face à un Mac en couleur. Regrettons 
seulement qu'il faille nécessairement, dans une telle 
approche, aborder la question du prix qui refroidit 
quelque peu. 


Présentation 


Mac SE : c'est quasiment un Macintosh Plus avec 
une légère évolution du clavier. Le coloris est platine, 
celle de l'Apple IIGS, mais aussi celle des Mac Plus 
dès ce mois-ci. 


Mac IT : l'unité centrale est plus volumineuse — on 
pense à un IBM -— moniteur type IIGS, clavier 
détachable avec touches de fonctions et touches 
spéciales (pour MS/DOS ou UNIX). Il arbore un 
aspect ‘professionnel’ (plus que le Mac ?) que 
certains apprécient. 


Ouvert, Fermé ? 


Si le Mac n'est pas si fermé qu'on a bien voulu le 
dire (ou ie médire), les nouveaux Mac sont 


résolument ouverts. Il ne s'agit pas d'une ouverture 
‘à l'Apple J[° (qui conduit, selon l'usage, à ne jamais 
reposer le capot !) mais d'une facilité d'évolution de 
la machine. 


Mac SE : un seul connecteur — mais 96 broches — 
sur la carte mère pour installer des cartes 
d'extensions : adaptation au MS/DOS, carte vidéo, 
accélérateur, modem intégré. 6 périphériques SCSI 
peuvent être connectés en plus de l'éventuel disque 
dur interne. 


Mac II : 6 connecteurs d'extension dont l'un 
occupé par la carte vidéo. 6 périphériques peuvent 
également être chaînés sur le port SCSI en plus du 
disque dur. La transmission des données sur les 
connecteurs utilise le protocole NuBus qui supprime 
le problème de la configuration manuelle. 

Une version du système d'exploitation UNIX, 
appelé A/UX, sera proposée à la fin de l'année. On 
parle de facilité de communication (Ethernet, 
Appletalk) sous A/UX. 


Mac SE et Mac IT : avec un lecteur 5,25 pouces, 
il sera possible de lire des fichiers MS/DOS sans 
carte spéciale grace à un soft Apple : InterFile. 


L'ouverture, c'est aussi deux ports série, un port 
lecteur de disquettes externe, une interface d'entrée 
(clavier, souris...) pouvant gérer 16 périphériques et 
un port son stéréo 4 voix. 


RS Se SN. 2 
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Stockage 

Mac SE : ce modèle sera proposé en deux versions, 
deux lecteurs de disquettes 800 Ko, ou un seul mais 
avec un disque dur de 20 Mo SCSI. 


Mac II : il sera équipé d'un ou deux lecteurs de 
disquettes 800 Ko et d'un disque dur de 20, 40 ou 
80 Mo. 


La vidéo 


Mac SE : monochrome. 


Mac II : 640 x 480 points. La carte pilote un 
moniteur vidéo très haute résolution de 12 pouces 
monochrome ou 13 pouces en couleur. En standard, 
16 couleurs ou nuances de gris parmi 16 millions et, 
avec extension mémoire, 256 couleurs ou nuances de 
gris ; cela ne laisse pas indifférent. Pour une 
présentation sophistiquée à l'écran, les 
programmeurs souffriront certainement... Les 
programmes tournant actuellement sur le Mac ne sont 
pas tous une démonstration de bon goût et de 
fignolage alors, avec l'arrivée de la couleur et 
307 200 points. 


Le processeur 
Mac SE : comme le Mac : MC68000 Motorola 
(32/16 bits) à 8 Mhz. 
Mac II : MC68020 (32/32 bits) à 16 Mhz, 


coprocesseur arithmétique 68881 pour des calculs 
fulgurants (200 fois plus rapide qu'avec le 68020 
seul). 






| Ia © 





La vitesse 

Mac SE : bien qu'utilisant le même processeur 
68000, 15 à 20 % sont gagnés grâce à des accès 
mémoire plus rapides. Les accès au disque dur SCSI 
sont deux fois plus rapide. 


Mac II : un 68020 à 16 Mhz ne déçoit pas ; 
transfert via SCSI à 1 Mo/s 


Mac SE : il est livré avec 1 Mo de Ram, extensible 


à 4 Mo. 


Mac II : 1 Mo extensible à 8 Mo sur carte mère 
mais 15000 Mo sur cartes d'extension. Prix des 15 
gigas ? 


La mémoire ‘morte’ 

Mac SE : 256 Ko (Contre 128Ko sur le Mac Plus) 
Mac II : 256 Ko 

Disponibilité 

Mac SE : mars 87. Mac II : juin 87. 

Extension 2 Mo (SE ou ID) : mai. 


Prix 

Mac SE : avec 1 Mo de Ram et disque dur intégré : 
35 000 Frs TTC. 

Mac II : avec 1 Mo de Ram et disque dur intégré 20 
Mo, deux lecteurs 800 Ko, moniteur monochrome, 
carte vidéo : 65 000 Frs TTC. 
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Cryptage de fichiers 


confidentiels : Kruptos 


Le but de l'accessoire de bureau 
“Kruptos” est le cryptage — et, bien sûr, 
le décryptage -— de fichiers 
confidentiels, ceci afin de les rendre 
incompréhensibles et, de manière 
générale, inexploitables par des tiers. 


Effets de Kruptos 


Un fichier codé à l'aide de Kruptos 
présente les caractéristiques suivantes : 


+ il n'a plus d'icône personnalisé et 
donc, vu du Finder, il est banalisé et 
l'éventuel ‘espion’ ne pourra pas 
faire la différence entre, par exemple, 
un fichier MacWrite et un fichier 
MacPaint ; 

+ il n'est plus ‘double cliquable’, et 
toute tentative d'ouverture par cette 
méthode se soldera par un message 
«Il n'y a pas d'application pour 
ouvrir ce document.» ; 

* un essai de chargement depuis l'ap- 
plication correspondante — générale- 
ment avec l'article ‘Ouvrir’ du menu 
‘Fichier’ — reste possible, mais abou- 
tira selon les applications, prévoyan- 
tes ou pas, au mieux à un message 
pouvant ressembler à «Ceci n'est pas 
un fichier créé par Blurp», et au pire 
à la bombe. Il va sans dire que pour 
essayer d'ouvrir le fichier depuis 
l'application, il faut d'abord deviner 
quelle est cette dernière ; 

+ le contenu du fichier, après codage, 
étant très ‘abîmé’, les éditeurs de 
secteurs et autres outils de ‘déplom- 
bage’ ne seront d'aucun secours au 
curieux. 


Utiliser Kruptos 


L'accessoire est très simple à utiliser. Il 
faut d'abord choisir le fichier à crypter 
en utilisant le bouton ‘Fichier’, qui 
provoque l'affichage de la fenêtre de 
sélection qui vous propose tous les 
fichiers sauf : 


° les applications (type APPL/xxxx) ; 

+ les fichiers ‘système’ (type xxxx/ 
MACS — system, Finder, Clipboard 
File): 

+ les fichiers ouverts ou en cours 
d'utilisation. 


Une fois le fichier sélectionné, 
l'accessoire affiche le nom du fichier, 
ainsi que son type. L'affichage du type 

— lui aussi codé — permet d'avoir une 
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indication, quand on n'en est plus bien 
sûr, sur le codage ou le non codage du 
fichier : dans le cas d'un fichier non 
codé, le type est généralement cohérent, 
par exemple ‘MACA’ pour un fichier 
MacWrite, alors que le traitement rend 
invariablement le type fantaisiste 
(t+03, *[,0...). Afin que le type ne 
facilite pas la tâche du pirate, son 
codage est différent de celui du fichier 
proprement dit. 


Il faut ensuite (ou avant la sélection du 
fichier, l'ordre n'a pas d'importance) 
choisir la clef à utiliser pour le codage. 
La clef est constituée de quatre 





Fichier ‘Secret’ (fichier Macllrite en format texte) 



















caractères quelconques qui peuvent être 
frappés directement au clavier, ou 
encore ‘collés’. Dans ce dernier cas, et 
si l'on utilise un accessoire de bureau 
comme le ‘ad litteram’ du numéro 25, 
on dispose de 243 caractères différents, 
ce qui nous donne 3 486 784 401 
combinaisons possibles. 


Il ne reste plus qu'à actionner le bouton 
‘Codage/décodage” pour que l"' opéra- 
tion soit effectuée, au rythme d'environ 
80K0 par minute (le temps d'exécution 
peut varier sensiblement en fonction de 
la mémoire de masse utilisée). 








Le codage peut être effectué plusieurs 
fois de suite avec des clefs différentes 
ou identiques, ce qui peut augmenter le 
nombre de possibilités jusqu'à 4 294 
967 296. L'ordre utilisé pour le 
décodage d'un tel fichier peut ne pas se 


Anecdotique : cette version de 
Kruptos est compatible avec la version 
pour Apple ][ publiée dans ce numéro ; 
il est donc possible de coder un fichier 
sur un Mac et le décoder sur un Apple 
][, ou l'inverse. 





Petit jeu : si vous êtes le premier à 
téléphoner pour nous communiquer la 
clef qui a servi à crypter le fichier 
‘secret’ listé page précédente, vous 
gagnerez le cadeau indiqué dans le 
fichier. Pour vous faciliter la tâche : il 


faire dans l'ordre. Par exemple, si l'on 
a utilisé les clefs 1234, ABCD et 
POMS, le fichier pourra être décodé en 
donnant d'abord ABCD, puis POMS, 
puis enfin 1234. 


accessoires 





s'agit d'un fichier créé avec MacWrite 
et sauvegardé en format ‘texte seul”. 


RPEUBHOMBÉNTI Er O0 Tlq OZ EE Â 05 EF. … ER)? WE PKO# -A@Me #E'S-CÜN AT T RD 80e * OR Go 


Fichiers et sources de 
l'accessoire “Kruptos” 


Note : le caractère “J” indique la continuité de la 
ligne courante. 


Fichier ‘Kruptos.]ob’ 


Asm Kruptos.Asm Exec Edit 
Link Kruptos.Link Font/DA Mover Edit 


Fichier ‘Kruptos.Link’ 


/Resources 

Kruptos 

/output Accessoire “Kruptos” 
/Type 'DFIL' 'DMOV' 

$ 


Source “Kruptos.Asm” 


INCLUDE Kruptos/1.Asm 
INCLUDE Kruptos/2.Asm 
END 


Source ‘Kruptos/1.Asm' 


RESOURCE 'DRVR' 29 'Kruptos' 


INCLUDE FSEqu.Txt 

INCLUDE MacTraps.D 

INCLUDE SysEqu.D 

INCLUDE ToolEqu.D 

INCLUDE QuickEqu.D 

INCLUDE PackMacs.Txt 

HandleCtIiF EQU WindowsSize 
HandleCtIiC EQU HandleCtlF+4 
HandIText EQU HandleCtlC+4 
HandleControle EQU HandiText+4 
CreateurFichier EQU HandleControle+4 
TypeFichier EQU CreateurFichier+6 
FichierCourant EQU TypeFichier+6 
ReponseGetFile EQU  FichierCourant+64 
TamponlO EQU  ReponseGetFile+72 
DrapeauMdf EQU TamponlO+ioFQElSize 
DrapeauColle EQU DrapeauMdf+1 
DrapeauCurs EQU  DrapeauColle+1 


DrapeauEOF EQU  DrapeauCurs+1 
Clef EQU DrapeauEOF+1 
LongueurD EQU Clef+4 
LongueurR EQU  LongueurD+4 
Tampon522 EQU  LongueurR+4 
CompteurTiming EQU Tampon522+522 
TailleTampon EQU CompteurTiming+4 
Oui EQU 5$100 
MaxC EQU 4 
BS EQU 8 
CR EQU 13 
Base 

DC 5400 

DC 0 

DC  S16A 

DE 0 

DC  Ouverture-Base 

DC  Status-Base 

DC  Controle-Base 

DC  Status-Base 

DC  Fermeture-Base 
Titre 


DC.B 7,'Kruptos' 
; Ouverture de l'accessoire 
Ouverture 


MOVEM.L D3-D7/A1-A4,-(SP) 
MOVEA.L A1,A4 


TST.L dCtiWindow(Ad4) 

BNE Status4 

SUBQ.L #4,SP 

MOVEL  SP,-(SP) 

_GetPort 

MOVEL  #TailleTampon,DO 

_NewPtr,clear 

TST DO 

BEQ.S MemoireOK 

MOVE #7,-(SP) 

_SysBeep 

BRA Status2 
MemoireOK 

MOVEA.L A0,A3 

SUBQ.L #4,SP 

MOVE.L  A3,-(SP) 

PEA RectFenetre 

PEA Titre 

MOVE #Oui,-(SP) 

MOVE #noGrowDocProc,-(SP) 

MOVEQL #-1,D0 

MOVE.L  D0,-(SP) 

MOVE #Oui,-(SP) 

CLR.L -(SP) 
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_NewWindow MOVEAL dCtIWindow(A4),A3 Sur la 
_SetPort MOVEL  A3,-(SP) ; 
MOVEL  A3,dCtlWindow(A4) _SetPort Po on ss 
MOVEL DctlRefNum(Ad),WindowKind(A3) MOVE CSCode(A2),D0 Rte 
CMPI #accEvent,D0 accesSOIr e est 
; Affichage des boutons BEQ.S Evenement installé dans le 
SUBQ.L #4,SP CMPI #accCursor, DO menu é avec 
MOVE.L  A3,-(SP) BEQ Curseur les 5 autres 
PEA RectBoutonF CMPI #accCut, DO accessoires 
PEA TitreBoutonF BEQ Couper décrits page 
MOVE  #Oui,-(SP) ie PR ne 75 
CLRL  -(SP) PES Copier 
CLRL (SP) CMPI #accPaste DO Ilest 
CLRL Un (GP) BEQ Coller également 
_NewControl CMPI #accClear, DO sous la forme 
MOVEL  (SP),HandleCtIF(A3) BEQ Effacer d'un fichier 
MOVEL A3,-(SP) nie Status Font 
ee Sa ; Aiguillage des événements DA/Mover' 
MOVE #Oui,-(SP) Evenement 
GÉRT -(SP) MOVEAL CSParam(A2),A2 
GER -(SP) MOVE EvtNum(A2),D0 
MOVEQ  #1,D0 CMPI #mButDwnEvt,D0 
MOVE.L  DO0,-(SP) BEQ.S Contenu 
_NewControl CMPI #keyDwnEvt,DO 
MOVE.L  (SP)+,HandleCtIC(A3) BEQ Touche 
ST DrapeauMdf(A3) CMPI #autoKeyEvt,DO 
BSR InvalideBouton BEQ Touche 
CMPI #updatEvt,DO 
; Enregistrement ‘TextEdit” BEQ MiseJour 
CMPI #activateEvt,DO0 
BSR PoliceChicago BEQ Active 
SUBQ.L #4,5P BRA Status3 
PEA RectVisTexte 
MOVEL  (SP),-(SP) ; “click” dans la fenêtre de l'accessoire 
TENew 
= Contenu 
MOVEL (SP), HandiText(A3) LEA EvtMouse(A2) 
-TEActivate _GlobalToLocal 
SF DrapeauCurs(A3) CLR -(SP) 
ROUE MOVEL  EvtMouse(A2),-(SP) 
Pitt MOVEL  A3,-(SP) 
* oe PEA HandleControle(A3) 
MOVEL  dCtlWindow(A4),A3 Un an 
Status3 BEQ.S @1 
MOVEM.L (SP)+,D3-D7/A1-A4 CLR -(SP) 
Status 
MOVE.L  HandleControle(A3),-(SP) 
Se *0,D0 MOVEL  EvtMouse(A2),-(SP) 
CLR.L -(SP) 
EF, ! , _TrackControl 
; Fermeture de l'accessoire TST (SP)+ 
Fermeture BEQ.S @1 
MOVEM.L A3-A4,-(SP) SUBQ.L #4,5P 
MOVEA.L AI,A4 MOVE.L  HandleControle(A3),-(SP) 
MOVEA.L dCtiWindow(A4),A3 _GetCRefCon 
MOVE.L  HandIText(A3),-(SP) BSR Boutons 
_TeDispose BRA Status3 
MOVE.L  A3,-(SP) @1 CLR -(SP) 
_DisposWindow MOVE.L EvtMouse(A2),-(SP) 
CÉRTE dCtiWindow(Ad4) PEA RectVisTexte 
MOVEA.L A4,A1 _PtinRect 
MOVEM.L (SP)+,A3-A4 TST (SP)+ 
BRA Status BEQ Status3 
@3 MOVEL  evtMouse(A2),-(SP) 
; Routine de contrôle BTST #shiftKey,evtMeta(A2) 
Controle SNE DO 
MOVEM.L D3-D7/A1-A4,-(SP) MOVE.B  D0,-(SP) 
MOVEAL A1,A4 MOVE.L  HandIText(A3),-(SP) 
MOVEA.L A0,A2 -TEClick 
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BRA Status3 


; Action sur le clavier. 


Touche 
BTST #0,evtMeta(A2) 
BEQ.S @4 


MOVE evtMessage+2(A2),D0 
ANDI #$DF,D0 


SUBI #86,D0 
BEQ Coller 
SUBQ #2,D0 
BEQ Couper 
SUBI #$FFEB,D0 
BNE.S @4 
BRA Copier 

@4 CMPI.B #CR,evtMessage+3(A2) 
BEQ.S @5 
CMPIB  #BS,evtMessage+3(A2) 
BEQ.S @1 
BSR DeReference 
CMPI #MaxC,teLength(A0) 
BNE.S @1 
MOVE teSelStart(A0),DO 
CMP teSelEnd(A0),D0 
BNE.S @1 

@5 MOVE #7,-(SP) 
_SysBeep 
BRA Status3 

@1 MOVE evtMessage+2(A2),-(SP) 
MOVEL  HandIText(A3),-(SP) 
_TEKey 

Key2 
BSR DeReference 
CMPI #MaxC,teLength(A0) 
BEQ.S @1 
BSR InvalideBouton 
BRA.S @2 

@1 BSR ValideBouton 

@2 BRA Status3 


; Routine de mise à jour 


MiseJour 
MOVEL  A3,-(SP) 
_BeginUpdate 
BSR PoliceChicago 
MOVEA.L (A5),A0 
PEA gray(A0) 
_PenPat 
MOVE.L  #$00300008,-(SP) 
_MoveTo 
MOVEL  #$00300160,-(SP) 
_LineTo 
MOVE.L  #$00500008,-(SP) 
_MoveTo 
MOVE.L  #$00500160,-(SP) 
_LineTo 
PEA RectGrisTexte 
_FrameRect 
_PenNormal 
PEA RectTexte 
_FrameRect 
BSR AffichePoms 
MOVEL  #$00170030,-(SP) 
_MoveTo 
PEA Chaine0 
_DrawString 
MOVEL  #$00260034,-(SP) 
_MoveTo 
BSR PoliceMonaco 





PEA Chainel 
_DrawString ; | 2) 
BSR PoliceChicago Gi 
TST.B  FichierCourant(A3) pa = 
BEQ.S @2 = 
BSR AffChaineFichier 
BSR AffChaineType 

@2 MOVEL  #$006400FD,-(SP) 
_MoveTo 
PEA Chaine4 
_DrawString 

@1 MOVEL  A3,-(SP) 
_DrawControls 
PEA RectVisTexte 
_EraseRect 
PEA portRect(A3) 
MOVE.L  HandiIText(A3),-(SP) 
_TEUpdate 
MOVE.L  A3,-(SP) 
_EndUpdate 
BRA Status3 


; Réponse à un message ‘Activate' ou "Deactivate' 


Active 
BTST #activeFlag,evtMBut(A2) 
BEQ.S @1 
MOVE.L  HandiIText(A3),-(SP) 
_TEActivate 
SF DrapeauColle(A3) 
BRA Status3 

@1 MOVEL  HandiText(A3),-(SP) 
_TEDeactivate 
BRA Status3 


; Changement de la forme du curseur. 


Curseur 
Buffer 
LINK 
MOVE.L 
_TEldle 
PEA 


_PtinRect 
TST 
BEQ.S 
TST.B 
BNE.S 
SUBQ.L 
MOVE 
_GetCursor 
MOVEA.L 
MOVE.L 
_SetCursor 
ST 
BRA.S 
@1 TST.B 
BEQ.S 
SF 
_InitCursor 
@2 UNLK 
BRA 


Couper 
BSR 
BEQ 
MOVE.L 


SET -4 
A6,#Buffer 
HandIText(A3),-(SP) 


Buffer(A6) 


-(SP) 
Buffer(A6),-(SP) 
RectVisTexte 


(SP)+ 

@1 
DrapeauCurs(A3) 
@2 

#4, SP 
#iBeamCursor,-(SP) 


(SP)+,A0 
(AO),-(SP) 


DrapeauCurs(A3) 
@2 
DrapeauCurs(A3) 
@2 
DrapeauCurs(A3) 


A6 
Status3 


VerifSelection 
Status3 
HandIText(A3),-(SP) 
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_TeCut SUBQ #4,SP 
BSR TEToScrap MOVEL  teScrpHandle,-(SP) 2 | ) 
BSR ValideBouton MOVEL  #'TEXT',-(SP) C'— 
BRA Status3 PEA scratch8 LS 
_GetScrap D 
Copier MOVEL  (SP)+,D0 
BSR VerifSelection BPL.S @1 
BEQ Status3 MOVEQ #0,D0 
MOVE.L  HandIText(A3),-(SP) @1 MOVE D0,TeScrpLength 
_TeCopy MOVEM.L (SP)+,A0-A1/D0-D2 
BSR TEToScrap RTS 
BRA Status3 
TETOScrap 
Coller MOVEM.L A0-A1/D0-D2,-(SP) 
TST:B DrapeauColle(A3) SUBQ #4,SP 
BNE.S @2 _ZeroScrap 
ST DrapeauColle(A3) ADDQ #4,SP 
BSR TEFromScrap MOVEA.L teScrpHandle,AO 
@2 MOVEAL HandiText(A3),A0 SUBQ #4,SP 
MOVEA.L (A0),A0 _GetHandleSize 
MOVE TeScrpLength,D0 MOVE.L D0,-(SP) 
ADD teLength(A0),DO _HLock 
MOVE teSelEnd(A0),D1 MOVEL  #'TEXT',-(SP) 
MOVE teSelStart(A0),D2 MOVE.L (AO),-(SP) 
SUB D2,D1 _PutScrap 
SUB D1,D0 MOVEA.L teScrpHandle,A0 
CMPI #MaxC+1,D0 _HUnLock 
BLT.S @1 MOVEL  (SP)+,D0 
MOVE #7,-(SP) MOVEM.L (SP)+,A0-A1/D0-D2 
_SysBeep RTS 
BRA Status3 
@1 TST TeScrpLength DeReference 
BEQ Status3 MOVEA.L HandIText(A3),A0 
MOVE.L  HandIText(A3),-(SP) MOVEA.L (A0),A0 
_TePaste RTS 
BRA Key2 
PoliceChicago 
Effacer CLR -(SP) 
BSR VerifSelection _TextFont 
BEQ Status3 MOVE #12,-(SP) 
MOVEL  HandIText(A3),-(SP) _TextSize 
_TEDelete RTS 
BSR ValideBouton 
BRA Status3 PoliceMonaco 
MOVE #monaco,-(SP) 
ValideBouton _TextFont 
TST.B DrapeauMdf(A3) MOVE #9,-(SP) 
BNE.S @1 _TextSize 
TST.B FichierCourant(A3) RTS 
BEQ.S @1 
BSR DeReference VerifSelection 
CMPI #MaxC,teLength(A0) BSR.S DeReference 
BNE.S @1 MOVE teSelStart(A0),D0 
MOVE.L  HandleCtIC(A3),-(SP) CMP teSelEnd(A0),D0 
CLR -(SP) RTS 
_HiliteControl 
SE DrapeauMdf(A3) AffichePoms 
@1 RTS Tampon SET -bitmaprec 
LINK A6,#Tampon 
InvalideBouton MOVEM.L A0-A4/D0-D2,-(SP) 
TST.B DrapeauMdf(A3) LEA Poms,A0 
BEQ.S @1 MOVE.L  A0,Tampon+baseAddr(A6) 
MOVE.L  HandleCtIC(A3),-(SP) MOVE #4,/Tampon+rowBytes(A6) 
MOVE #SFF,-(SP) CÉRE Tampon+bounds(A6) 
_HiliteControl MOVE.L  #$200020,Tampon+bounds+bottom(A6) 
SF DrapeauMdf(A3) PEA Tampon+baseAddr(A6) 
@1 RTS MOVEA.L A3,A0 
ADDQ.L #2,A0 
TEFromScrap MOVEL  A0,-(SP) 
MOVEM.L A0-A1/D0-D2,-(SP) PEA Tampon+bounds(A6) 
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PEA RectPoms DC.L S00A2FFD6,51451FEAB,$2A28FD45,54515FA A3 
CLR -(SP) ; | 4 DC.L SA20AFD45,55100FAA3,52A007D46,514007A AA 
CLR.L -(SP) GUERRE DC.L S$0A003D54,505001 AA8,502800DD0,501000660 
_CopyBits 7. = 
MOVEM.L (SP)+,A0-A4/D0-D2 > Curseurl 
UNLK A6 DC.L $07C01930,521084104,541048102,S8102FFFE 
RTS DC.L $81028102,$41044104,521081930,507C00000 
DC.L  0,0,0,0,0,0,0,0 
AffChaineFichier DC 7 
MOVE.L  #$00470008,-(SP) Curseur2 
_MoveTo DC.L 507C01830,520484044,54084B082,58D028382 
PEA Chaine2 DC.L $8162821A,542044404,524081830,507C00000 
_DrawString DC.L  0,0,0,0,0,0,0,0 
PEA Fichier Courant(A3) DONN77 
_DrawString Curseur3 
RTS DC.L $507C01830,520085014,548248442,582828102 
DC.L S582828442,548245014,520081830,507C00000 
AffChaineType DC.L  0,0,0,0,0,0,0,0 
PEA RectEffType DC 7,7 
_EraseRect Curseur4 
MOVE.L #5$004700D8,-(SP) DC.L $07C01830,524084404,54204821 A,581628382 
_MoveTo DC.L S8D02B082,540844044,$20481830,507C00000 
PEA Chaine3 DC.L  0,0,0,0,0,0,0,0 
_DrawString DC 71 
PEA TypeFichier+1(A3) 
_DrawStrin 
MOVE  # /-(6P) Source ‘Kruptos/2.Asm' 
_DrawChar 
PEA CreateurFichier+1(A3) ; Traitement en cas d'action sur un bouton. 
_DrawString Boutons 
ne: LINK  A6,#0 
TST 10(A6) 
InfoFichier re 
LEA TamponlO(A3), A0 BEQ BoutonFichier 
LEA ReponseGetFile+rName(A3),A1 


MOVEL  ALioFileName(A0) ; Action sur le bouton ‘Codage/décodage 


MOVE ReponseGetFile+rVolume(A3),/ BoutonCodage 
ioVRefNum(A0) £ re 
CLR ioFDirIndex(A0) ; Copie de la clef dans le tampon de quatre octets ‘Clef 
CLR.B ioFileType(A0) BSR DeReference 
_GetFileInfo MOVEAL teTextH(A0),A0 
RTS MOVEA.L (A0),A0 
LEA Clef(A3),A1 
RectFenetre DC  41,4,152,365 MOVEQ  #3,D0 
RectGrisTexte DC 85,245,107,286 @1 MOVE.B (A0)+(A1)+ 
RectTexte DC  85,285,107,353 DBRA D0,@1 
RectVisTexte DC  85+3,285+3,107-3,353-3 
RectBoutonF DC  86,8,106,80 ; Vérification de la clef : on compare deux caractères 
PRE Le RS a ; consécutifs. S'il sont identiques, on les modifie. 
ectPoms 
PR = LEA Clef(A3),A1 
RectEffType DC  58,248,77,352 MOVEQ #2,D5 
Chaine0 DC.B 45/'La revue francophone des | 02 MOVEB (WKAl DE 
ÊF Fe : CMP.B 1(A1,D5),D0 
utilisateurs d'Apple BNES @3 
Chaine1 DC.B 49,Éditions MEV — 12, rue d'Anjou / : 
__ 78000 Versailles’ MOVE.B 1(A1,D5),D1 
Chaine2 DC.B 8,'Fichier 0 ne Lt m5 
Chaine3 DC.B 5,Type ' LR 
Chaine4 DC.B 4,'Clef',0 ADD.B DS,DI 


SUBQ #1,D5 

EORI.B #SFF,D0 

MOVE.B  D0,0(A1,D5) 

MOVE.B  D1,1(A1,D5) 
@3 DBRA D5,@2 


TitreBoutonF DC.B 7,Fichier' 
TitreBoutonC  DC.B 15, Codage/décodage' 


Align 2 


; Traitement de la partie ‘données’ du fichier. Si le fichier ne 
; contient que des ressources, ce segment n'est pas exécuté. 
LongueurD(A3) 

PartieRessources 


DC.L $00000000,$00000050,$00000080,500001100 
DC.L $5000008AA,500000155,5000000A À,500001401 
DC.L  $00002A02,500004514,50000A280,$00015140 TST.L 
DC.L $000228A0,500051440,500028A00,500014560 BEQ.S 
DC.L $0028A2A0,500545140 $008A2980,$00453D7C 


PartieDonnees 
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; Ouverture de la partie ‘données’. ROL.B #5,D0 
LEA TamponlO(A3),A0 MOVE.B  D0,Clef+3(A3) 2 | = | 
LEA ReponseGetFile+rName(A3),A1 MOVEL  Clef(A3),D0 QU 
MOVEL  Al,ioFileName(AO) ROLL #3,D0 ri SN 
MOVE ReponseGetFile+rVolume(A3),[ MOVEL  D5,Clef(A3) D 
ioVRefNum(A0) Eu ; ; a en 
LEA Tampon522(A3),A1 ; Réécriture des informations du fichier avec le type modifié. 
MOVEL  Al,ioOwnBuf(A0) LEA TamponlO(A3),A0 
MOVE.B  #fsRdWrPerm,ioPermssn(A0) EOR.L D0,ioFIUsrWds+fdCreator(A0) 
_Open MOVEL  ioFlUsrWds+fdCreator(AO),[ 
CreateurFichier+2(A3) 
; Appel du sous-programme de codage. _SetFileInfo 
BSR Code Decode BSR AffChaineType 
; Positionnement de la fin de fichier pour la partie ‘données’. ; Mise à jour du volume. 
LEA TamponlO(A3),A0 LEA TamponIO(A3),A0 
: MOVEL  LongueurD(A3),ioLEOF(A0) CLR.L ioFileName(A0) 
_SetEOF MOVE ReponseGetFile+rVolume(A3),[ 
ioVRefNum(A0) 
; Fermeture de la partie ‘données’ du fichier _FlushVol 
FE Dir ST ; Effacement de la zone de saisie 
k MOVEQ  #0,D0 
; Traitement de la partie ‘ressource’ du fichier. Si le fichier ne MOVEL  DO0,-(SP) 
; contient que des ressources, ce segment n'est pas exécuté. MOVEQ  #4,D0 
PartieRessources MOVEL  DO,-(SP) 
TOI LongueurR(A3) MOVE.L HandIText(A3),-(SP) 
BEQ FinCodage _TESetSelect 
MOVEL  HandIText(A3),-(SP) 
; Ouverture de la partie ‘ressource’. = ME Roue 
nvalideBouton 
_ TamponlO(AS),A0 BRA SortieBoutons 


LEA ReponseGetFile+rName(A3),A1 
MOVEL  Al,ioFileName(A0) 


; Acti le bouton ‘Fichier’ 
MOVE ReponseGetFile+rVolume(A3),f oies ci 


ioVRefNum(AO) BoutonFichier 
LEA Tampon522(A3),A1 , 
MOVEL  AlioOwnBuf(A0) ; Affichage de la fenêtre de sélection. Les fichiers sont filtrés 
MOVE.B  #fsRdWrPerm,ioPermssn(AO) 1 per le procéènre FitrePichiers;. 
APENRE MOVEL  #$001E000C,-(SP) 
; £ CLR.L -(SP) 
; Appel du sous-programme de codage. PEA FiltreFichiers 
BSR Code Decode MOVE #-1,-(SP) 
CLR.L -(SP) 
; Positionnement de la fin de fichier pour la partie ‘ressource’. CLRL -(SP) 
LEA TamponlO(A3),A0 PEA ReponseGetFile(A3) 
MOVE.L  LongueurR(A3),ioLEOF(A0) MOVE #SFGetFile,-(SP) 
_SetEOF Pack3 
TST ReponseGetFile+rGood(A3) 
; Fermeture de la partie ‘ressource’ du fichier. BEQ.S SortieBoutons 
Fe na CE ; Lecture des infos sur le fichier. 
F BSR InfoFichier 
FinCodage 
BSR InfoFichier ; Déplacement du nom de fichier, et modification s'il est trop 
; long pour tenir dans la place qui lui est réservé. 
; Codage du type du fichier. MOVEQ  #0,D0 
MOVE.L  Clef(A3),D5 MOVE.B  ReponseGetFile+rName(A3),D0 
MOVE.B  Clef(A3),D0 ADDQ #1,D0 
ROR.B #3,D0 LEA ReponseGetFile+rName(A3),A0 
MOVE.B  DO0,Clef(A3) LEA Fichier Courant(A3),A1 
MOVE.B  Clef+1(A3),D0 _BlockMove 
ROL.B #2,D0 CLR -(SP) 
MOVE.B  DO0,Clef+1(A3) PEA FichierCourant(A3) 
MOVE.B  Clef+2(A3),D0 _StringWidth 
ROR.B #4,D0 CMPI #144,(SP)+ 
MOVE.B  DO0,Clef+2(A3) BLT.S @1 
MOVE.B  Clef+3(A3),D0 MOVEQ  #0,D4 
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LEA FichierCourant(A3),A2 | 

MOVE.B  (A2),D4 g. =) 
@2 MOVEB #….'0(A2,D4) pr 

CLR -(SP) LES 

PEA FichierCourant(A3) D) 

_StringWidth 

CMPI #144,(SP)+ 

BLT.S @1 

SUBQ.B #1,(A2) 

SUBQ #1,D4 

BRA.S @2 


; Mise en réserve des infos qui seront utilisées par la suite. 


@1 MOVE.L 


MOVE.L 


MOVE.B 
MOVE.B 
MOVE.L 
MOVE.L 


TamponlO+ioFIUsrWds+fdType(A3),] 
TypeFichier+2(A3) 
TamponlO+ioFIUsrWds+fdCreator(A3),[ 
CreateurFichier+2(A3) 
#4,TypeFichier+1(A3) 
#4,CreateurFichier+1(A3) 
TamponlO+ioFILgLen(A3), LongueurD(A3) 
TamponlO+ioFIRLgLen(A3),LongueurR(A3) 


; Vers affichage des chaînes. 


BSR 
BSR 
BSR 
SortieBoutons 
UNLK 
MOVE.L 
RTS 


AffChaineFichier 
AffChaineType 
ValideBouton 


A6 
(SP)+,(SP) 


; Routine de codage (ou décodage). 


Code _ Decode 
PEA 
_SetCursor 
SUBQ.L 
_TickCount 
MOVE.L 
MOVE.L 
LEA 
LEA 
MOVEQ 
MOVEQ 
MOVEQ 
BSR 
LEA 
MOVE.L 
MOVE.L 
MOVE 
_Read 
BNE 
ROL.L 
EOR.L 
MOVE.L 
MOVE.L 


@1 


@2 
_InitCursor 
RTS 


Curseurl 
#4,5P 


(SP)+,CompteurTiming(A3) 
Clef(A3),D6 

Scratch8,A4 

Curseur1,A2 

#1,D4 

#-4,D5 

#4,D7 

CurseurAttente 
TamponlO(A3),A0 
D7,ioReqCount(A0) 
A4,ioBuffer(A0) 

#fs AtMark,ioPosMode(A0) 


@2 

#1,D6 

D6,scratch8 
D7,ioReqCount(A0) 
A4,ioBuffer(A0) 
#fsFromMark, ioPosMode(A0) 
D5,ioPosOffset(A0) 


@1 
DrapeauCurs(A3) 


; Filtre pour la fenêtre de sélection des fichiers. 


FiltreFichiers 
LINK 
MOVEM.L 
MOVE.L 


A6,#0 
D0-D2/A0-A2,-(SP) 
8(A6),A0 


CMPIL #' APPL'ioFlUsrWds+fdType(A0) 
BEQ.S FiltreNon 
CMPIL # MACS' ioFlUsrWds+fdCreator(A0) 
BEQ.S FiltreNon 
TST.B ioFlAttrib(A0) 
BMI.S FiltreNon 
MOVE ioFlUsrWds+fdFlags(A0),DO 
ANDI #$5000,D0 
BNE.S FiltreNon 
CLR 12(A6) 
BRA.S FiltreOK 
FiltreNon 
MOVE #S$SFFFF,12(A6) 
FiltreOK 
MOVEM.L (SP)+,D0-D2/ A0-A2 
UNLK A6 
MOVE.L  (SP),4(SP) 
ADDQ.L  #4SP 
RTS 


; Gestion du curseur ‘animé’. 


CurseurAttente 
SUBQ.L  #4,5P 
_TickCount 
MOVEL CompteurTiming(A3),D0 
ADDQL  #2,D0 
CMP.L (SP)+,D0 
BMI.S ChangeCurseur 
RTS 
ChangeCurseur 
MOVE #68,D0 
MULU D4,D0 
PEA 0(A2,D0) 
_SetCursor 
SUBQ.L #45P 
_TickCount 
MOVEL (SP)+,CompteurTiming(A3) 
ADDQ #1,D4 
ANDI #$0003,D4 
RTS 


Apple et Minitel : 


les caractères semi-graphiques 


L'article de la page 10 de ce numéro vous donne 
les codes des caractères semi-graphiques ainsi que 
le moyen d'y accéder ; voici un petit programme 
qui vous permettra de concrétiser la méthode. 
N'oubliez pas de brancher le câble Mac/Minitel ! 


DEFINT A-Z 

OPEN "COM1:1200,E,7,1" FOR OUTPUT AS 1 
PRINT#1,CHRS$(&HC) CHRS(&HE); 
GOSUB Affiche 

PRINT#1,CHRS$(&H1B) CHR$(&H5A); 
GOSUB Affiche 

PRINT#1,CHRS(&HF); 

CLOSE:END 


Affiche: 

FOR I-&H20 TO &H3F:PRINT#1,CHRS(I);:NEXT 
FOR I=&H5F TO &H7E:PRINT#1,CHRS(I);:NEXT 
PRINT#1,CHR$(13) CHR$(10):RETURN 
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Cryptage de fichiers Christian Piard 
confidentiels : Kruptos 


Il arrive fréquemment que des 
fichiers utilisés sur un ordinateur 
doivent rester confidentiels, 
courrier privé, rapport 
professionnel, recette de la sauce 
aux câpres par exemple... Un 
programme Basic, un source 
assembleur, une feuille de calcul 
Multiplan en cours d'élaboration 
(pardon, en cours de 
développement), doivent parfois 
être hors d'atteinte pour éviter des 
modifications intempestives. 


C'est l'objet de la commande 
externe ProDOS que nous vous 
proposons ici. 


Nous ne reviendrons pas sur le 
principe des commandes externes 
ProDOS, abordé par A. Avrane 
dans le numéro 20 de Pom's ; 
rappelons simplement qu'une fois 
installée, une commande externe 
s'utilise en mode direct ou en 
mode programme tout comme 
CAT, VERIFY, ou RENAME 
par exemple. 


Le cryptage 


La clef comporte 4 caractères 
quelconques, y compris les 
caractères de contrôle, ce qui 
permet de choisir parmi plus de 
200 000 000 de clef possibles. 
Le programme modifiera 
toutefois (sans le dire) les clefs 
comportant plusieurs caractères 
identiques. 


Le OU EXCLUSIF 


Un OÙ EXCLUSIF (EOR) est 
effectué entre les 4 premiers 
caractères du fichiers et la clef. La 
table de vérité du OÙ exclusif est 
la suivante : 


MERE 
1 EOR 0 
MEORA 
0 EOR 0 
Autrement dit, l'un ou l'autre, 
mais pas les deux (Initiation à 


0 
1 
1 
0 
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l'assembleur 4, G. Michel, 
Pom’s 14). 


Prenons par exemple les 4 
premiers caractères d'un fichier : 
‘jour’ ce qui correspond aux 
codes ASCII $6A, $6F, $75, 
$72. 

Prenons pour clef : ‘zss1’ 
c'est-à-dire $5A, $53, $53, $31. 
Voici la représentation binaire de 
chacune des deux chaînes et 
l'opération OÙ exclusif effectuée 
entre les deux : 
01101010011011110111010101110010 
01011010010100110101001100110001 


00110000001111000010011001000011 


Le résultat correspond à $30, 
$3C, $26, $43 soit : ‘o<ec”’. 
Ici, on peut donc écrire : 


Jour ÉORMZSSIN= 0<6ec 
Le mot jour après codage est 
méconnaissable. 


La rotation 


Pour ne pas trop faciliter le travail 
de l'éventuel espion, avant 
chaque EOR entre 4 caractères du 
fichier et la clef, on effectue une 
rotation de cette clef d'un bit à 
gauche : 

Prenons pour exemple la clef 
P159. Avant le premier codage, 
nous décalons tous les bits d'une 
position sur la gauche (ROL en 
assembleur). Il faut bien entendu 
récupérer le bit qui tombe à 
gauche dans le bit de retenue du 
registre d'état pour le faire entrer 
à droite. 


P159= 
21010000001100000011010100111001 
P159 décalé = 
10100000011000000110101001110010 
Le 0 de gauche est passé à droite 
et la clef utilisée réellement 
devient : ‘[espace]0jr ? 


Du fait de cette transformation à 
chaque étape, un fichier composé 


uniquement d'espaces et crypté 
avec la clef ‘P159° donne le 
résultat suivant : 


‘BJR'dtE!)Ij£3s5&FGJ, mnt 8... 


(les caractères soulignés sont des 
caractères de contrôle). 


Enfin, un jeu d'EOR et 
d'incrémentation transforme la 
clef au cas où deux caractères 
consécutifs seraient identiques 
(clef aabb par exemple). 


Créer la commande 


Si vous disposez de la disquette 
d'accompagnement de Pom's, ce 
paragraphe ne vous est pas 
indispensable. 


Pour obtenir la commande, 
saisissez le fichier binaire 
KRUPTOS listé ci-après puis 
sauvegardez-le. 


Si vous optez pour la saisie du 
source assembleur, après 
assemblage, vous obtenez le 
fichier KRUPTOS.CODE qui n'est 
pas directement exécutable. Il 
vous faut également le 
programme d'installation des 
commandes externes CMDLOAD 
d'A. Avrane (Pom'’s 20). Ce 
programme est constitué des 
codes qui vont de $2000 à $20FF 
dans le fichier KRUPTOS listé 
ci-après. Vous avez maintenant 
entre les mains les deux fichiers 
nécessaires ; faites alors : 


BLOAD CMDLOAD 
BLOAD KRUPTOS.CODE 
BSAVE KRUPTOS,A$2000,L$300 


Mode d'emploi 


Pour installer votre nouvelle 
commande, faites : 


—KRUPTOS 


La syntaxe pour chaque cryptage 
et décryptage est la suivante : 











KRUPTOS chemin d'accès, cl 
ef [,Sslot] [,Ddrive] 


Chemin d'accès : nom de votre 
fichier, éventuellement précédé de 
préfixes, 

Clef : 4 caractères, 

Slot et Drive : sont optionnels. 


Si la clef n'est pas valide, vous 
serez gratifié d'un INVALID 
PARAMETER. 


L'opération étant réversible, pour 
décrypter un fichier, il faut 
employer la même commande, 
avec la bonne clef. 


Si le fichier a été cryptée à l'aide 
de deux clefs successivement, 
décryptez-le avec les deux 
(l'ordre n'est pas important). 


Note 


Tous les fichiers sont cryptables 
par cette commande sauf : 


+ les fichiers de type SYS 
(ProDOS, Aw.System, Basic. 
System..…), 

+ ceux de type DIR (catalogues 
de la disquette), 

+ ceux de type $F0 (commandes 
ProDOS), 


et ce, par souci de précaution : un 
FILE TYPE MISMATCH vous 


Source KRUPTOS.S 


Assembleur ProCODE 

0 

2 DSK KRUPTOS,.CODE 

K] 

4 CLE _ 6 

5 PTR - $48 

6 HIMEM = S73 

7 READ BUF = $200 

8 PRINTERR = S$SBEOC 

9 XTADDR = $BE50 
10 XLEN = S$SBE52 
11 XCNUM = $SBE53 
TN DATTS = S$SBE54 
13 VPATHI = $BE6C 
14 VPATH2 S$SBE6E 
15 GOSYSTEM = S$SBE70 
16 SSGINFO = S$BEB4 
17 SGET = $SBEC6 
18 SOPEN = $BECB 
19 SREAD F S$SBEDS5 
20 SCLOSE = $BEDD 
21 SYSERR = SBFO0F 
24 RTS = SFF58 
25 GFI = $SC4 
26 OPEN _ $c8 
27 READ = $CA 
28 WRITE = $CB 
29 CLOSE = SCC 
30 SETMARK = S$SCE 
31 GETMARK = $CF 


32 SETEOF 


Fichier ‘SECRET’ 


Il s'agit du listage d'un fichier TEXT, créé par AppleWriter. À vous de trouver le premier la 
clef qui a servi au cryptage et de nous appeler pour recevoir le cadeau indiqué 


ci-dessous. 
000: 5Ghdé..m Fà..enx B5 C7 57 64 
01 .Lf.ù>-tx.-](].> 1A CC E6 9C 
2 ù.VOU4,.0z2<..NW FF 7C lE D6 
3 st9ca1a72C;..6n 85 A7 94 39 
40: oW./.èé.Q. .K' 6F 57 84 AF 





: 4J'Jx'3/tG B4 CA 27 CA 
: NGv'ès..h2$0[.eD E C7 F6 27 
: FiG45eS$#$+Yt'>.A C6 69 C7 B4 
: Ko/N/OJ2ù.QJE .. CB EF 2F 4E 

"L4J . 27 CC B4 CA 
: Zù.EFLzl.,..d=,.A DA 7C 1E CS 
.$.£<"ux3RK1...cm 85 A5 82 26 
PIRE NS IV EIVNTS 0€ CC DENDG EX 


® + & Un 


Q © > 
OS OSSGOSOSSS S © © © © © © 


© © © © © © © © © © © © © © © © © © 


HO OS S1S S 606 9:06 S 0 © S 


DO: 4. V-028jçCcC7>. B4 85 20 D6 
E ..é?>&YH{[u...A<., OA 83 FB 3F 
F0: J-àf8rk LPb-üàäà#z CA 2D CO E6 
00: Ah?.iPjèd..HAr.. C1 E8 3F 07 
10: -"*,g0# 2D DE AA 83 


rappelera à l'ordre. Pour lever ces 
limites, supprimer les lignes 161 
à 167 du source. 


Cette commande est à manipuler 
avec précaution car décrypter un 
fichier avec une mauvaise clef 





7B 0C 97 ED A0 46 40 83 1C ES EE 78 


FC 3E FE F4 78 9F 7E DD 28 5D 17 JE 
51 D5 B4 2C 1B 51 FA B2 BC 8C 00 57 
2E El Bl El B7 7A DC 06 06 06 7B 6D 
89 FD 7B 00 51 8E Al 45 C3 05 4B A7 
FRrA7 DS 2F 74 C7 48 F2 45 72 214F 
FD 73 14 9F E8 B2 24 51 5B 04 E5 C4 
B5 E5 24 A3 A4 2B D9 74 27 3E 0E 41 
2F 51 CA B2 FC IA 51 CA 45 A0 95 10 
FF 2E AD F3 56 E5 74 CD 38 47 43 72 
46 CC FA 69 OD 14 9A E4 BD 97 07 41 
22 F5 F8 B3 D2 4B EC 06 1B 19 63 6D 
DD A5 2C 59 01 D6 F7 49 8C 00 04 A6 
AD B0 FA 38 6A DC 43 E3 43 37 3E 0E 
BE 26 59 C8 DB F5 07 14 18 41 BC 97 
B8 F2 6B FF CC 50 E2 7E 7C 40 23 7A 


69 50 DD FD E4 06 05 C8 41 F2 85 1C 


Il est vivement déconseillé 
d'utiliser des caractères de 
contrôle pour la clef : ceux-ci 
n'étant pas affichés, il est difficile 
de contrôler s'il n'y a pas de faute 
de frappe et on risque de ne pas 


revient à le crypter deux fois. Savoir quel code a été utilisé.… 
Dans ce cas, décryptez-le avec les 
deux clefs. G 
33 GETEOF = $D1 
34 
12 ORG $2100 ProDOS 
36 
97 Mmmmmmmmmmmmmmmmmmmmmm— 
38 * Est-ce notre commande ? 
99 fm mmmmmmmmm— 
40 
41 START CLD 
42 
43 LDA #>FIN+$100 
44 LDA #>LONG-$100 
45 V OLDCMD LDA RTS 
46 
47 LDA VPATH1 
48 STA PTR 
49 LDA VPATHI1+1 
50 STA PTR+1 
51 
a LDY #1 sest-ce crypte ? 
53 COMPAR LDA (PTR),Y 
54 CMP  COMMAND-1, Y 
55 BNE NO CMD 
56 INY 
57 CPY #6+1 
58 BCC COMPAR 
59 
60 fuommmmmmmmmm_………… 
61 * Demande à ProDOS suite commande 
62 À em on ee eee eee me ee ee me ee ee ee ee me ee me eme ee eee eme ee be ee 
63 
64 DEY 
65 DEY 
66 ST XLEN 
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67 LDA #0 147 LDA VPATHI+1 


68 STA SYSERR 148 STA SOPEN+2 
69 STA  XCNUM 149 STA SSGINFO+2 
70 LDA ##00000011 ;2 noms de fichiers 150 
71 STA PBITS 151 LDA HIMEM 
72 LDA ##%00000100 ;slot/drive autorisés 3 LE STA SOPEN+3 
75 STA PBITS+1 153 STA SREAD+5 
74 154 LDA HIMEM+1 
75 V SUITE LDA SUITE 155 STA SOPEN+4 
76 LDA V SUITE+1 156 
77 STA XTADDR TH LDA #GFI sget file info pour 
78 LDA V SUITE+2 158 JSR GOSYSTEM  ;type de fichier 
79 STA  XTADDR+1 159 BCS ERREUR 
80 CLC 160 
81 RTS 161 LDA SSGINFO+4 ;controle type fichier 
82 162 CMP #$0F sun directory ? 
83 NO CMD SEC 163 BEQ ERRTYPE 
84 JMP (V OLDCMD+1) 164 CMP #$F0 une commande ProDOS ? 
85 165 BEQ ERRTYPE 
86 Nm mm mm 166 CMP #$FF sun fichier système ? 
H 87 * Controle validité clef 167 BEQ ERRTYPE 
88 168 
89 169 LDA #OPEN ouvre le fichier | 
90 SUITE LDA VPATH2 vecteur nom de fichier 170 JSR GOSYSTEM 
| 91 STA CLE 171 BCS ERREUR 
92 LDA VPATH2+1 172 
93 STA CLE+1 173 LDA SOPEN+5 srecopie nf de référence 
94 174 STA SREAD+1 
95 LDY #0 175 STA SGET+1 
96 LDA (CLE),Y 176 STA SCLOSE+1 
97 174 | 
98 TAY ;cherche le / 178 LDA #<READ_BUF 
99 LDX #0 179 STA SREAD+2 
100 BCL LDA (CLE),Y 180 LDA #>READ _BUF 
101 CMP #'/' 181 STA SREAD+3 
102 BEQ SLASH 182 
103 INX 183 LDA #GETEOF ;cherche longueur fichier 
104 DEY 184 JSR GOSYSTEM 
105 BNE BCL 185 BCS ERREUR 
106 186 
107 SLASH CPX #4 ;2ème nom a bien 187 LDY #4 ; sauvegarde la longueur 
108 BEQ CLE OK ;4 caractères ? 188 BCLGET LDA SGET,Y 
109 LDA #5B ;non : invalid parameter 189 STA LONGUEUR, Y 
110 JMP  PRINTERR 190 DEY 
111 191 BNE BCLGET 
112 CLE OK LDX #0 ;sauve la clef 192 
113 INY SEE PL 
114 BCLI LDA (CLE),Y 194 * Lecture/écriture 
115 STA CLEF,X RO ne 
116 INY 196 
117 INX 197 LDX #4 son lira 4 octets 
118 CPX #4 198 STX SREAD+4 
119 BNE BCLI1 199 
120 DEX 200 LOOP LDA  #GETMARK relève la position 
121 201 JSR  GOSYSTEM dans le fichier 
122 BCL3 LDA CLEF,X 202 BCS ERREUR 
123 DEX 203 
124 CMP CLEF,X 204 LDY #2 ;la sauvegarde 
125 BNE CLE VAL 205 BCLPOS LDA SGET+2,Y 
126 ke 206 STA POSITION, Y 
127 TXA 207 DEY 
128 ADC CLEF,X 208 BPL BCLPOS 
129 EOR #%11111111 203 
| 130 STA CLEF,X 210 LDA  #READ slit fichier 
131 INX PTI JSR GOSYSTEM 
132 TXA ’ 212 BCC OK 
133 ADC: CLEF,X Fan CMP #5 ’Finciichier.? 
134 STA CLEF,X 214 BNE ERREUR ‘non : erreur 
135 DEX 215 BEQ FINAL 
136 216 
137 CLE VAL CPX #0 217 ERRTYPE LDA #$D file type mismatch 
138 BNE BCL3 218 ERREUR UMP  PRINTERR 
139 219 
140 #2 220 OK ROL CLEF ;smodification 
141 * Ouverture fichier 221 PHP sde la clef 
142 M ————————— 222 ROR CLEF 
143 223 PLP 
144 LDA VPATHI 224 LDX #3 
145 STA SOPEN+1 225 BCLCLE ROL CLEF,X 
146 STA SSGINFO+1 226 DEX 
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227 
228 
229 


230 BCL2 


231 
232 
233 
234 
235 
236 


237 BCLPOS1 


238 
239 
240 
241 

242 
243 
244 
245 
246 
247 
248 
249 
250 
251 


252 FINAL 


BCLCLE 


#3 


; codage 


READ BUF, X 


CLEF, X 


READ_BUF, X 


BCL2 


#2 


restaure position 


POSITION, Y ;pour écriture 


SGET+2, Y 
BCLPOS1 
#SETMARK 


GOSYSTEM 
ERREUR 


#NRITE 
GOSYSTEM 
ERREUR 
LOOP 


#4 


Récapitulation 
‘KRUPTOS’ 


Après avoir saisi cette 


récapitulation sous moniteur, 


vous la sauvegarderez par : 


BSAVE KRUPTOS,A$2900, 


L$28D 


2000:AD 
2008:87 
2010:05 
2018:21 

2020:A9 
2028:90 
2030:8E 
2038:21 

2040:21 

2048:74 
2050:00 
2058:A4 
2060:C9 
2068:04 
2070:65 
2078:85 
2080:84 
2088:84 
2090:08 
2098:8D 
20A0:8D 
20A8:F0 
20B0:AD 
20B8:68 
20C0:58 
20C8:B9 
20D0:BF 
20D8:ED 
20E0:A5 
20E8:E8 


00 
4c 
A9 
69 
0E 
F6 
07 
A0 
85 
A9 
B1 
2F 
22 
65 
2F 
49 
3C 
42 
BE 
FB 
FC 
47 
FD 
29 
BF 
F3 
AD 
FD 
3D 
8A 


BF 
ED 
15 
00 
4c 
AE 
21 

00 
2C 
21 

48 
co 
90 
3C 
85 
DO 
85 
88 
85 
20 
20 
AD 
20 
07 
DO 
20 
FC 
20 
DO 
60 


C9 
FD 
4c 
20 
09 
08 
AE 
8c 
68 
85 
FO 
02 
09 
91 
48 
D3 
3D 
84 
43 
A5 
86 
FC 
48 
A8 
El 
1D 
20 
CD 
07 
A9 


4c FO 05 
AD 4D BE 
09 BE AD 
98 20 90 
BE CD 02 
BE 8D 08 
07 BE 8E 
07 BE 48 
38 E9 04 
49 84 48 
27 20 8E 
DO 0F B1 
CD 02 21 
48 A5 48 
A5 49 69 
AO 00 A9 
18 6D 04 
3E 85 3F 
C8 4C 2C 
74 18 69 
3D CE FC 
20 8D FD 
4A 4A 4A 
B9 F3 20 
A5 3D DO 
58 BF 9D 
38 CE FD 
FB 20 DO 
18 AE FD 
00 85 3D 


set repositionne 
;le pointeur 


sréécrit fichier 


reprend longueur 


20F0:B9 38 
20F8:04 02 
2100:D8 A9 
2108:AD 6C 


2110:85 49 

2118:22 DO 

2120:88 88 

2128:0F BF 

2130:54 BE 

2138:4C 21 

2140:AD 39 
A9 2148:38 6C 
FO 2150:06 AD 
04 2158:B1 06 
05 2160:2F FO 
21 2168:04 FO 
BE 2170:A2 00 
06 2178:C8 E8 
E9 2180:82 22 
85 2188:8A 7D 
A0 2190:22 E8 
F8 2198:22 CA 
48 21A0:BE 8D 
BO 21A8:6D BE 
38 21B0:A5 73 
00 21B8:A5 74 
21 21C0:70 BE 
21 21C8:0F FO 
AD 21D0:FF FO 
FE 21D8:B0 4E 
04 21E0:8D C7 
20 21E8:8D D7 
20 21F0:A9 D1 
AA 21F8:04 B9 
3D 2200:D0 F7 
09 2208:CF 20 
58 2210:B9 C8 
20 2218:F7 A9 
DO 2220:C9 05 
20 2228:4C 0C 
FO 2230:82 22 


60 
01 

23 
BE 
A0 
2D 
8C 
8D 
A9 
AD 
21 
06 
6F 
A8 
04 
05 
c8 
EO 
CA 
82 
8A 
EO 
cc 
8D 
8D 
8D 
BO 
5B 
53 
AD 
BE 
BE 
20 
cé 
A2 
70 
BE 
CA 
DO 
BE 
28 


8D 


BRK 


ASC 
Ds 


POSITION DS 
LONGUEUR DS 


FIN 
LONG 


20 
00 
AD 
AD 
48 
07 
A9 
A9 
55 
8D 
BE 
6E 
07 
B1 
DO 
4C 
9D 
F5 
22 
FF 
22 
El 
B5 
8D 
8D 
A9 
B8 
FO 
20 
8D 
BE 
8D 
BO 
89 
D9 
1A 
22 
BE 
3E 
22 
3E 


10 
AD 
58 
6D 
D9 
90 
00 
03 
BE 
50 
18 
BE 
A0 
06 
F6 
OC 
82 
CA 
DO 
9D 
9D 
AD 
BE 
B6 
DA 
C4 

BE 
ré 
70 
D6 
A9 
D8 
31 

22 
BE 
A0 
88 
90 
A9 
08 
82 





LONGUEUR, Ÿ ;car on a écrit 


SGET, YŸ :N x 4 octets 
BCLGET1 

#SETEOF sremet à jour 
GOSYSTEM longueur 
ERREUR 

#CLOSE ;ferme fichier 


GOSYSTEM ‘terminé 


"CRYPTE' 
4 
3 

4 


* 


FIN-START+$100 


2238:CA 10 FA A2 03 BD 00 02 
2240:5D 82 22 9D 00 02 CA 10 
2248:F4 A0 02 B9 86 22 99 C8 
2250:BE 88 10 F7 A9 CE 20 70 
2258:BE B0O CD A9 CB 20 70 BE 
2260:B0 C6 90 A3 A0 04 B9 89 
2268:22 99 C6 BE 88 DO F7 A9 
2270:D0 20 70 BE B0O B2 A9 CC 
2278:4C 70 BE 00 43 52 59 50 
2280:54 45 00 00 00 00 00 00 
2288:00 00 00 00 00 





Apple & Minitel 


caractères semi-graphiques 


À titre d'illustration de 
l'exploitation des caractères 
semi-graphiques du Minitel (voir 
page 10), voici un modeste 
programme Basic qui fonctionne 
sur tous les Apple // muni d'une 
carte série en slot 2, configurée 
ainsi : 1200 bauds, parité paire, 7 
bits de données et 1 bit de stop. 
Le câble de liaison décrit dans les 
précédents numéros conviendra. 


Programme GRAPH.VIDEOTEX 


10 PRINT CHR$ (4) "PR#2" 

20 PRINT CHRS (12) CHR$ (14); 

30 GOSUB 100 

40 PRINT CHRS$S (27) CHR$ (90); 

50 GOSUB 100 

60 PRINT CHR$ (15) 

70 PRINT CHR$ (4)"PR#0": HOME : END 

100 FOR I = 32 TO 63: PRINT CHRS$S (I 
);: NEXT : FOR I = 95 TO 126: PR 
INT CHRS$ (I);: NEXT : PRINT CH 
R$ (13) CHR$ (10): RETURN 
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Serge Cattan 


Le SIMPLEXE est un algorithme 
permettant la résolution des pro- 
blèmes de programmation linéai- 
re, qui consiste à rechercher 
l'optimum d'une fonction linéaire 
à plusieurs variables liées par des 
équations ou des inéquations. 


Développé en 1947 par Dantzig 
de l'US Air Force, cet algorithme 
est maintenant utilisé largement 
par les économistes et techniciens 
pour résoudre les problèmes les 
plus divers : affectation de 
personnel, préparation de 
mélanges industriels, stockages, 
etc. 


Le programme SIMPLEXE 
reprend cet algorithme. Prenons 
l'exemple d'un pâtissier qui 
désire confectionner des soufflés 
au chocolat, des quatre-quarts et 
des mousses au chocolat (fichier 
PATISSERIE de la disquette 
Pom's 29). Il dispose de sucre et 
de chocolat en quantités limitées, 
et chaque type de gâteau est 
vendu à un prix différent. 
Combien de gâteaux de chaque 
type le pâtissier doit-il 
confectionner pour trouver un 
bénéfice maximum ? 


Il faut 40 grammes de sucre par 
soufflé, 20 grammes par 
quatre-quarts et 50 grammes par 
mousse. Notre pâtissier ne 
dispose que de 2 kilos de sucre. 


Pour le chocolat, les valeurs 
respectives sont 10, 28 et 40 ; il 





n'y a qu'un seul kilo de chocolat 
disponible. 


Soient x1, x2 et x3 les variables 
représentant le nombre de 
soufflés, quatre-quarts et 
mousses. Nous avons donc les 
CONTRAINTES : 


40 x1 + 20 x2 + 50 x3 <= 2000 
10 x1 + 28 x2 + 40 x3 <= 1000 


Ces contraintes sont du type 
“inférieur ou égal”. Il peut 
également exister des contraintes 
de type “supérieur ou égal” ou 
simplement “égal”. 


Le bénéfice de notre pâtissier est 
respectivement de 20, 20 et 40 
centimes par type de produit. 
D'où la FONCTION 
ECONOMIQUE : 


20 x1 + 20 x2 + 40 x3 


Cette fonction doit ici être 
maximisée ; pour d'autres exem- 
ples, elle pourrait être minimisée 
(si elle représentait un coût de 
fabrication). 


Le programme SIMPLEXE 
permet d'éditer toutes ces 
données numériques et calcule le 
nombre de gâteaux à confec- 
tionner, compte tenu des 
contraintes, pour obtenir le plus 
grand bénéfice. Ici, il faudrait 
produire 27 soufflés et 18 
mousses (tant pis pour les 
amateurs de quatre-quarts !). 





Simplexe 


Les données peuvent être 
sauvegardées sur disque pour être 
modifiées plus tard. Les résultats 
peuvent également être sorties sur 
une imprimante Epson RX80 
(l'adaptation à d'autres impri- 
mantes ne pose aucun problème). 
Le programme, s'il donne entière 
satisfaction pour la résolution des 
problèmes posés, est cependant 
volontairement limité à l'ossature 
afin d'alléger sa lecture, et ne 
comprend donc pas les multiples 
routines de gestion des erreurs 
possibles de saisie. À vous de le 
compléter suivant vos goûts. 





Fichier 
‘PATISSERIE" 





Programme ‘SIMPLEXE 


Afin de faciliter la saisie, les espaces situés 160 TS = " 
dans des chaînes de caractères ont été 


remplacés par des puces (‘+’). 


XAARARARAHARAARÉEERERAHEÉÉÉER 


150 REM ONERR GOTO 3470 


170 D$ = 
100 REM XXXAAXAEXXAAXAXEA RAR AA HÉÉEÉ SE 180 HOME 
RARRÉARRÉRAAARÉEÉXAÉÉÉÉÉÉ HER ÉÉH 190 INVERSE 
HO 


120 REM CATTAN Serge 


CHRS (4) 


: PRINT SPC( 40) 


200 PRINT "eersevoseeseALGORITHME+DUeSIM 


ALGORI PLEXEses90e nu à 
THME DU SIMPLEXE 09/85 210 PRINT SPC( 40) 
CHR 220 NORMAL 
140 REM *XX##X4% 4% #4 #4 404 #4 4 6 4 4 230 POKE 34,4: 


VTAB 8 
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sl 








240 


250 


260 


270 


280 


290 


300 


310 


320 


330 


340 


350 


360 


370 


380 


390 


400 


410 


420 


430 
440 


450 


460 
470 


480 


490 
500 


510 
520 


530 
540 
550 
560 
570 
580 
590 
600 


610 


620 


PRINT "ANALYSE °D'UNePROBLEME®-..0e.e-— 
=>.1" 

PRINT "REPRISE °ANALYSE°EXISTANTE®-ee- 
->e2" 

PRINT "MODIFICATIONS °DES DONNEES vee— 
meute 

PRINT "MODE°-D'EMPLOIece0s000.00.00-— 
->.4" 

PRINT "RETOUR°AU°BASICevee0.....-— 
->.5" 

POKE 36,11: VTAB 18: INPUT "VOTRE*-CH 
OIXe?e";R$S:R = VAL (R$) 


ON R GOTO 340,320, 4240, 3490, 330 

GOTO 290 

GOSUB 2540: GOTO 990 

POKE 34,0: END 

HOME 

VTAB 23: INPUT "NOM°eDE°-L'ANALYSE®e(°7? 
*POUR°LE CATALOGUE +) °?°";NES 

IF LEN (NES) < 1 OR NE$ = "?" THEN 
PRINT D$; "CATALOG": GOTO 350 

PRINT : INPUT "NOMBRE °D'INCONNUES ° ?e 
"NS 
N = VAL (N$): IF N = O0 THEN PRINT " 
eUN°CHIFFREe>e0eS.V.P.": GOTO 370 
PRINT : INPUT "NOMBRE °DE ° CONTRAINTES 
eDUeTYPEe<=e?e";T1$: PRINT 





IF LEN (T1$) = 0 THEN TI$S = "e" 

TI = VAR UTISNANTE, FASCOU(TLS)" SA 0 
R ASC (T1$) > 57 THEN PRINT "eUN°CH 
IFFRE®°S.V.P.": GOTO 390 

PRINT : INPUT "NOMBRE °DE°CONTRAINTES 
eDU°eTYPEs>=e?e";}T2S: PRINT 

IF LEN (T2$) = O0 THEN T2$ = "e" 
T2 = VAL (T2$): IF ASC (T2$) < 48 O 
R ASC (T2$) > 57 THEN PRINT "e°eUN°CH 
IFFRE®°S.V.P.": GOTO 420 

PRINT : INPUT "NOMBRE °DE °CONTRAINTES 
eDU°eTYPEe=e7e";}T3$: PRINT 

IF - LEN (T3$) = 0 THEN T3$ = "…" 
PIUæ VAT (TIS) UTE M ASCU(T3S) <4800 
R ASC (T3$) > 57 THEN PRINT "eUNeCH 
IFFRE°S.V.P.": GOTO 450 
DIU=NTI FUT2 ECTS: D2 me NUT DIT + T2 + 
1 

GOSUB 510: GOTO 540 

DIM TABLEAU ======== 

IF ME = l THEN RETURN 

DIM PG(D1,D2),BA(D1),EC(2,D2),A(D1), 
Al (D1) 
ME = l: RETURN 

REM =====-===-==-=-zzzzzz=---=-======= 
REM SAISIE ======-==-=-=----------=-- 
HOME 

IF Tl = 0 THEN 670 

FORVK = J10TO' TI 

PRINT K; 

IF K = 1 THEN PRINT "IERE+-CONTRAINT 
E°DU°TYPEe<=e:": PRINT : GOTO 620 
PRINT "IEME°CONTRAINTE °DU°eTYPE®<=e:" 
: PRINT 


FOR J=0 TON -1 


630 


640 
650 


660 
670 
680 
690 
700 
710 


720 


730 
740 


750 
760 


770 
780 
790 
800 
810 
820 


830 


840 


850 


860 
870 


880 


890 


900 


910 
920 


930 
940 
950 


960 
970 


980 
990 


PRINT "COEFFICIENT eDE°X";J + l;: INP 
UT "e=e?e";:B$S:B = VAL (B$):PG(K - 1, 
J) =B 

NEXT J 

INPUT "VALEUR ° DU SECOND MEMBRE °=e?e" 
;:B$S:B = VAL (B$):PG(K - 1,D2) = B: P 
RINT 

NEXT K 

IF T2 = 0 THEN 780 
DE UT LE 2 = TO ENTI 

FOR K = Ll TO L2 

PRINT K - L1l + 1; 

IF K - Ll + 1 = 1 THEN PRINT "IERE° 
CONTRAINTE ®DUeTYPE®e>=e:": PRINT : GOT 
© 730 

PRINT "IEME°CONTRAINTE °DUeTYPEs>=e:" 
: PRINT 

FOR J =0 TON -]1 

PRINT "COEFFICIENTeDE+X";J + l;: INP 
UT "e=0?";B$S:B = VAL (B$):PG(K - 1,J 
) =B 

NEXT J 

INPUT "VALEUR e° DU ° SECOND MEMBRE °=e?e" 
;B$:B = VAL (B$):PG(K - 1,D2) = B: P 
RINT 

NEXT K 

IF T3 = 0 THEN 890 
Lil = Tl + TON 1:12 = Tl + T2 + T3 


FOR K = L1 TO L2 
PRINTORSEN ANT 1? 


IF K - Ll + 1 = l THEN PRINT "IERE® 
CONTRAINTE °DU°TYPE®=e:e": PRINT : GOT 
© 840 

PRINT "IEME°-CONTRAINTE °DUeTYPE®=e:e" 
: PRINT 

FOR J =0 TON -]1 

PRINT "COEFFICIENTeDEe°X";J + l;: INP 
UT "“e=0?e";BS:B = VAL (B$):PG(K - 1, 
J) =B 

NEXT J 

INPUT "VALEUR + DU SECOND MEMBRE °=e?e" 
;B$:B = VAL (BS$):PG(K - 1,D2) = B: P 
RINT 

NEXT K 
Al = N + Tl - l:A2 = Al + T2:A3 = A2 
HT2:A4 = A3 + T3 

PRINT "FONCTION-ECONOMIQUE®°:e": PRIN 
id 

FOR J = 1 TON 

PRINT "COEFFICIENTeDEeX";J;: INPUT " 
e=.";BS:CX = VAL (B$) 
EC(L; dt E) =. — CX 

NEXT J 

PRINT : PRINT "TAPER°1+POUR°UNE°MINI 
MISATION'": HTAB 7: PRINT "2ePOUR°UNE°+ 
MAXIMISATION": PRINT : HTAB 7: INPUT 
MO$ 
MO = VAL (MOS) 

IF MO < > 1 AND MO < > 2 THEN PRI 
NT rMEDASH OU CRRINT Je OT 2eS Ve Pl, MEUIN 
ORMAL : PRINT : GOTO 950 

IF R < > 2 THEN GOSUB 2180 
23 = LE - 5 
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1000 
1010 


1020 
1030 
1040 
1050 
1060 
1070 


1080 
1090 
1100 
AE E) 


: 1120 
1130 
1140 
1150 


1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
? 1450 
1460 
1470 
1480 
1490 
1500 
1520 
1520 
1530 
1540 


1550 
1560 


IF MO = 2 THEN MO = - 1 

PRINT : FLASH : PRINT "CALCULe-EN°CO 
URSe,..": NORMAL 

REM ============================ 
REM INIT VARIABLES AUXILIAIRES 
REM =======-=-====-=-==-============ 
IF Tl = 0 THEN 1090 

FOR J = 1 TO T1 

PG(J - 1,N + J - 1) = 1:BA(J - 1) = 
N+J-1 

NEXT J 

IF T2 = 0 THEN 1130 

FOR J = 1 TO T2 

PG(J + T1 - l,A1l + J) = - l1:PG(J + 
T1 - 1,A2 + J) = l1:BA(J + T1 - l) = 
22 +J 

NEXT J 

IF T3 = 0 THEN 1170 

FOR J = 1 TO T3 

PG(J + T1 + T2 - 1,A3 + J) = 1:BA(J 
+ T1 + T2. = 1) = A3 + J 

NEXT J 

IF T2 + T3 = 0 THEN 1440 

FOR J = 0 TON + T1 + T2 - 1 
S = 0 

FOR I = Ti TO\D1 

S = S + PG{(I,J) 

NEXT I 
EC{(0,J) = 5 

NEXT J 
EC(0,D2) = 0 

FORT = T1, TO'D1 

EC(0,D2) = EC(0,D2) + PG(I,D2) 

NEXT I 
EX = 0:CO = 1 

GOSUB 1790 

IF RE = 2 THEN 1660 

IF EC(0,D2) > ZZ THEN 1670 
V = 0 

FOR C = 0 TO D1 

IF BA(C) > A2 THEN V = 1 

NEXT C 

IF V = 1 THEN 1680 

FOR J = A2 + 1 TO A4 

FOR I = 0 TO DI1 
PG(I,J) = 0 

NEXT I 
EC(0,J) = 0:EC(1,J) = 0 

NEXT J 
EX = 1:CO = MO: GOSUB 1790 


IF RE = 2 THEN 1670 


HTABUTS PV PRINTANEREEERR ER EN. PRINT 


REM === 
REM AFFICHAGE PROGRAMME OPTIMAL 
REM === 
GOSUB 2110: REM ON IMPRIME ? 

HOME : PRINT 

PRINT "BASE +DE+DONNEES +: °";NES 
PRINT "============>===2="; PRINT 
PRINT "SOLUTION-OPTIMALE+POUR-:": P 

RINT 
FOR I=1TON 
FOR J = 0 TO D1 


1570 


1580 
1590 
1600 
1610 


1620 


1630 


1640 


1650 
1660 


1670 


1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 


1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 


2070 


IF BA(J) = 
"e=e";PG(J, D2):A(I - 1) 
GOTO 1600 
NEXT J 
PRINT "X";I;"e=e0" 
NEXT I 
PRINT 
F20 
PRINT : PRINT CHR$ (15): GOSUB 303 
0: REM AFFICHAGE EQUATIONS 
PRINT CHRS (18): REM RETOUR 80 C 
OLONNES 

GOSUB 2160: POKE 34,0: PRINT D$S;"PR 
#0": PRINT : RUN 
REM === 
GOSUB 2110: HOME : PRINT "CE+PROBLE 
ME°N'A+PASe+DE+SOLUTION-OPTIMALE": PR 
INT : GOTO 1610 
GOSUB 2110: HOME : PRINT 
ME °N'A°PAS eDE eSOLUTION®+DUe TOUT": 
NT : GOTO 1610 
FOR JJ = 0 TO A4 

IF EC(0,JJ) > ZZ THEN 1740 
FOR I = 0 TO DI1 
PG(I,JJ) = 0 
NEXT I 
EC(0,JJ) 
NEXT JJ 
GOTO 1440 
REM 


TI THEN" PRINTONX MST; 
= PG(J, D2) : 


: HTAB 15: PRINT "****#XXXxX%% 


"CE + PROBLE 
PRI 


0:EC(1,JJ) = 0 


MA = ZZ 

FOR ÿi = 0 TO D2 = 1 

IF MA < EC(EX,J) * CO THEN MA = 
EX,J) * CO:J1 = J 

NEXT J 
IF MA = 
MI = 1E20 
FOR I = 0 TO D1 
A = PG(I,J1) 

IF À < ZZ THEN 1900 


ZZ THEN RE = l: RETURN 


R = PG(I,D2) / A 

IF R < MI THEN MI = R:Il1 = I 
NEXT I 

IF MI = 1E20 THEN RE = 2: RETURN 
BA(I1) = Jl:PI = PG(Il,J1) 

FOR J = 0 TO D2 
PG(I1,J) = PG(I1,J) / PI 

NEXT J 

FOR I = 0 TO D1 

IF Il = I THEN 2020 


Bl = PG(I,J1) 


FOR J = 0 TO D2 

PG(I,J) = PG(I,J) - Bl * PG(Il,9J) 
NEXT J 

NEXT I 


B1l = EC(EX,J1):B2 = EC(EX + 1,J1) 


FOR J = 0 TO D2 

EC(EX,J) = EC(EX,J) - Bl * PG(Il,J) 
EC(EX + 1,J) = EC(EX + 1; U)uU=" B2 * P 
G(Il,J) 

NEXT J 
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2080 
2090 
2100 
2110 
2120 


2130 


2140 
2150 
2160 


2170 
2180 
2190 
2200 
2210 
2220 
2230 


2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 


2570 


2580 


2590 


2600 
2610 


GOTO 1790 


PRINT : INPUT "VOULEZ-VOUS + IMPRIMER 
eCES°RESULTATS °?";RS 
IF LEFTS (R$,1) = 
PRINT D$;"PR#1" 
RETURN 

REM 
IF IM = O0 THEN POKE 36,0: 


"OM THEN TIM = l: 


VTAB 23: 


PRINT "APPUYEZ + SUR °UNE + TOUCHE °POUR° 
LA°+SUITE.": GET C$ 

RETURN 

REM SAUVEGARDE SUR DISQUE 

REM ===================== 

PRINT 

PRINT D$;"OPEN'";NES$ 


PRINT D$;"WRITE'";NES$ 


PRINT N: PRINT Tl: PRINT T2: PRINT 
T3 

PRINT Dl: PRINT D2 

IF Tl = O THEN 2320 

FOR K = 1 TO T1 

FOR J=0 TON-]1I 

PRINT PG(K - 1,J) 

NEXT J 

PRINT PG(K - 1,D2) 

NEXT K 

IF T2 = 0 THEN 2400 
Lil = Tl + l:L2 = T2 + T1l 

FOR K = L1l TO L2 

FOR J=0 TON -1 

PRINT PG(K - 1,J) 

NEXT J 

PRINT PG(K - 1,D2) 

NEXT K 

IF T3 = 0 THEN 2480 

Pt = DT EC TA CNT OL æ TI ETATS 
FOR K = L1l TO L2 

FOR J = 0 TON - 1 

PRINT PG(K - 1,1) 

NEXT J 

PRINT PG(K - 1,D2) 

NEXT K 

FOR J = 1 TON 

PRINT EC(1,J - 1) 

NEXT J 

PRINT MO 

PRINT DS; "CLOSE" 

RETURN 

REM LECTURE ENREGISTREMENT 
REM =======-=-=-2=2=======2=== 


VTAB 23: INPUT "NOM°DE°+L'ANALYSE®(e 
?ePOUR°LE CATALOGUE +) °?e°";NES$ 


IF LEN (NE$) < 1 OR NE$ = "?" THEN 
PRINT D$;'"CATALOG": GOTO 2560 

HOME : INVERSE : POKE 36,8: VTAB 23 

: PRINT "ANALYSE®*FICHIERe...";NE$: N 

ORMAL 

PRINT 


PRINT D$;'"OPEN'";NES$ 
PRINT D$;"READ'";NES$ 


2620 


2630 
2640 
2650 


2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 


2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 


3060 
3070 


3080 
3090 
3100 


3110 
3120 
3130 
3140 


3150 
3160 
3170 








INPUT N: INPUT Tl: INPUT T2: INPUT 
T3 

INPUT Dl: INPUT D2 

GOSUB 510 
Al = N + T1 - 1:A2 = Al + T2:A3 = A2 
+ T2:A4 = A3 + T3 

IF Tl = 0 THEN 2730 

FOR K = 1 TO T1 

FOR J = 0 TON - 1 

INPUT PG(K - 1,J) 

NEXT J 

INPUT PG(K - 1,D2) 

NEXT K 

IF T2 = 0 THEN 2810 
Li = Tl + 1:L2 = T2 + T1 

FOR K = L1 TO L2 

FOR J=0 TON -1 

INPUT PG(K - 1,J) 

NEXT J 

INPUT PG(K - 1,D2) 

NEXT K 

IF T3 = 0 THEN 2890 

Lie TT + T2 1:12 mm T1 FT?) + TS 
FOR. K = L1l TO L2 

FOR J=0 TON -1 

INPUT PG(K - l,J) 

NEXT J 

INPUT PG(K - 1,D2) 

NEXT K 

FOR J = 1 TON 

INPUT EC(1,J - 1) 

NEXT J 

INPUT MO 

PRINT D$; "CLOSE" 

RETURN 

REM TRAITEMENT ERREUR=== 

REM 

IF PEEK (222) = 5 THEN VTAB 10: P 
RINT "FICHIER°INEXISTANT": GOTO 2990 
PRINT "ERREUR" 

FOR IT = 1 TO 1000: NEXT 

POKE 34,0: GOTO 180 

RETURN 

REM ========-=2=-=--=--- 

REM LISTE DES DONNEES 

REM =======2=====2zz== 

GOSUB 2600: REM RECUP INFOS FICHIE 
R 

PRINT "EQUATIONS eDUeTYPEe<e:" 

PRINT "== "+: PRIN 
Hi 

FOR K = 1 TO T1 

FOR J=0 TON -1 

PRINT PC (Ki = TJ) mener Te ET RUE 
< N - 1 THEN PRINT "oo", 
Al(K) = PG(K - 1,J) * A(J) + Al(K) 
NEXT J 

PRINT Me Ge Te PG{K NT, D2) 

PRINT "VALEUR°CALCULEEe-:";Al(K): PR 
INT 

NEXT K 

IF T2 = 0 THEN 3280 
Ll = Tl + l:L2 = T2 + T1 
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PRINT "EQUATIONS eDUeTYPE®>e:" 

PRINT "---------—--—-------—- CRD REEN 
L 

FOR K = L1l TO L2 

FOR J = 0 TON - 1 

PRINT PG(K = l,J): "exe EMTEC TE T 
< N - 1 THEN PRINT “ete"k 
Al(K) = PG(K - 1,J) * A(J) + A1(K) 
NEXT J 

PRINT "e>o"-PG{(K== 1,D2) 

PRINT "VALEUR°CALCULEE°:";Al1(K): PR 
INT 

NEXT K 

IF T3 = 0 THEN 3400 
Lil = Ti + T2 + l:L2 = TI PES 
PRINT "EQUATIONS °DUeTYPEe=s:" 

PRINT “mener °2 FRIS 
Te 

FOR K Lil TO L2 

FOR J = 0 TON - 1 

PRINT PG(K - 1,J);"ex";J FL IF 
CON = 1 THEN PRINT Mere 
Al(K) = PG(K - 1,J) * A(J) + Al(K) 
NEXT J 

PRINT "e=e";PG(K - 1,D2) 

PRINT "VALEUR°CALCULEE®:";Al(K): PR 
INT 

NEXT K 

PRINT : PRINT "“"FONCTION*ECONOMIQUE + 


Ut. 
D'ART: 


IF MO = 1 THEN PRINT "POUReUNE MIN 
IMISATION.": GOTO 3430 
PRINT “"POUR°UNE °MAXIMISATION. " 


PRIENTN 


FOR J = 1 TO 

PRINTÉEC {TP TRE) Men teur 

NEXT J 

PRINT : PRINT "VALEUR°DE e° LA eFONCTIO 
N°eECONOMIQUE°=e";EC(1,D2) 

RETURN 

REM MODE D'EMPLOI =========== 

REM ===========s========s===== 
HOME : PRINT : PRINT : SPEED= 140 
PRINT "L'ALGORITAME *°DU°SIMPLEXE®°A°E 
TRE 

PRINT "DEVELOPPE®+PAR°G.B.°DANTZIG*E 
N°1947," 

PRINT "ILeS'AGITeD'UN°OUTIL+DE + CALC 
UL + TRES" 

PRINT "UTILISE ° D'ABORD °PAR°LES °MILI 
TAIRES, " 

PRINT "PUISe+PAR°LES -ECONOMISTES °ETe 
LES" 

PRINT “"INDUSTRIELS.": PRINT 

PRINT "LES °APPLICATIONS + SONT ° NOMBRE 
USES :": PRINT 

PRINT "-PREPARATION °DE -MELANGES + IND 
USTRIELS, " 

PRINT "-AFFECTATION°+DE PERSONNEL, " 
PRINT "-PLAN°+DE PRODUCTION, 

PRINT "-INVESTISSEMENTS*°ETC," 

PRINT 
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PRINT "POUR°SITUER° LE * PROBLEME, NOUS 
+ PRENDRONS " 

PRINT "L'EXEMPLE °D'UN°PATISSIER °QUI 
DESIRE 

PRINT "CONFECTIONNER + DES ° SOUFFLES °A 
U-CHOCOLAT, " 

PRINT "DES-QUATRE-QUARTS, ET °DES -MOU 


PRINT "CHOCOLAT." 


PRINT “SÆNS-LIMITYETIN-POUR"-LES-2UT 
RES" 


PRINT “DE-PLOS, CONS -CETEZN-ES TUE 
NDU-A-UN” 

PRINT “PRIX-QUI © TIEMT CIRE TE ICE 
T°DES" 

PRINT "DIVERS -INGREDIENTS. "> #1 

INVERSE : PRINT “PROBLEME--"> DEEE 

PRINT "COMBIEN°DE -GATEAUX-DE-C=2QUE 
TYPE" 

PRINT "LE+PATISSIER-DOIT-PREPARER*E 
Te VENDRE" 

PRINT "POUR°EN°TIRER°UN+PROFIT-MAXI 
MAL?" 

PRINT "LES -MATIERES *PREMIERES *SE*RE 
PARTISSENT" 

PRINT "AINSI-:": PRINT 

PRINT "POUR*LE+SUCRE° :" 

PRINT "40+GR. -POUR°LES ®QUATRE-QUART 
a” 

PRINT "20+GR.+POUR°LES+SOUFFLES, " 

PRINT "50+GR. *POUR*LES + MOUSSES . " 

PRINT : PRINT : PRINT "POUReLE+CHOC 
OLAT-:" 

PRINT "10+GR. -POUR-LES -QUATRE-QUART 
is 

PRINT "28°GR.°POUR*LES+SOUFFLETS, 

PRINT "20+GR. -POUR*LES+MOUSSES . " 

PRINT : PRINT "LE+POIDS+DE+SUCRE*DI 


SPONIBLE °ESTe2000°GR." 
PRINT "LEePOIDS °DE + CHOCOLAT-ESTe100 
0°G : LL 


PRINT : PRINT "LES °INCONNUES ° SONT °L 
ES °GATEAUX. " 

PRINT "LES °EQUATIONS ® POUR°CE °® PROBLE 
ME °SERONTe:": PRINT 

PRINT "40X1e+e20X2e+e50X3e<=e°2000" 
PRINT "“I10Xl1e+e28X2e+e40K3e<=e1000" 
PRINT : PRINT "LES ®°EQUATIONS °QUI°S0O 
NT°ICI*-DES" 

PRINT "INEGALITES ° SONT °APPELEES ° CON 
TRAINTES. " 

PRINT "ELLES PEUVENT °ETRE°DE°3°TYPE 
Sens PRINT 

PRINT "°-INFERIEUR*°OU*°EGALe(<=)," 
PRINT "e-SUPERIEUR°OU°EGALe(>=)," 
PRINT "“e-EGAL(=)." 

PRINT : PRINT "LES e+VALEURS °SITUEES° 








4030 


4040 


4050 
4060 


4070 
4080 
4090 


4100 
4110 


4120 
4130 


4140 


4150 


4160 


4170 


4180 


4190 
4200 
4210 


4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 


4310 


4320 
4330 


4340 
4350 


4360 
4370 
4380 
4390 
4400 
4410 


4420 


A°-DROITE DE" 
PRINT "L'EQUATION+S 'APPELLENT *SECON 
DeMEMBRE. " 

PRINT : PRINT "D'AUTRE+PART, LE+BENE 
FICE + POUR -NOTRE" 

PRINT "PATISSIEReSERAe+DEe:" 

PRINT : PRINT "20°CTS+PAR°QUATRE-QU 
ART, " 
PRINT 
PRINT 


"20 °CTS °PAR°SOUFFLE, " 
“"40+CTS + PAR °MOUSSE. " 

PRINT : PRINT "L'EQUATION + CORRESPON 
DANTE °SERA:": PRINT 

PRINT "BENEFICEe=e20e+e20+°40" 
PRINT : PRINT "CETTE®-EQUATION*+SE°-NO 
MME ° FONCTION" 

PRINT "ECONOMIQUE." 

PRINT "“LA°-FONCTION+ECONOMIQUE °PEUT® 
ETRE" 

PRINT "MAXIMISEE, C'ESTeLE+CAS °D'UNe 
BENEFICE" 


PRINT "COMME ° DANS °NOTRE °EXEMPLE, + OU 
-MINIMISEE" 

PRINT "LORSQU'ILeS'AGIRAe-D'UNeCOUT + 
PAR°EXEMPLE." 

PRINT : PRINT : PRINT "CE+PROGRAMME 
*A°+ETE°INSPIRE °PAR°+L'ARTICLE"; 

PRINT "DE °+DANIEL + FERRO ° PARU ° DANS + LA 
*REVUE" 

SPEED= 255 

PRINT "SCIENCE *+ETeVIE." 

PRINT : PRINT "APPUYEZ SUR °UNE ° TOUC 
HE POUR + RETOUR AU °° -MENU.": GET R$ 
HOME : GOTO 230 

REM  =======-===-==-- 

REM MODIFICATIONS 

REM ==========-==-= 

HOME : GOSUB 2540 

IF Tl = 0 THEN 4370 

FOR K = 1 TO T1 

PRINT : PRINT K; 

IF K = 1 THEN PRINT "IERE*-CONTRAIN 
TE°DU°TYPE®<=e:": PRINT : GOTO 4320 
PRINT "IEME CONTRAINTE °DU°TYPEe<=e: 
DNPRENT 

FOR J = 0 TON -1 

PRINT "COEFFICIENTeDE°X";J + l;"e=e 
“;: INVERSE : PRINT PG(K - l1,J);: NO 
RMAL : INPUT "e";B$:B = VAL (BS$): I 
F LEN (B$) > 0 THEN PG(K - 1,J) =B 
NEXT J 

PRINT "VALEUR °DUeSECOND MEMBRE °=e"; 

INVERSE : PRINT PG(K - 1,D2);: NOR 

MAL : INPUT "e";B$:B = VAL (B$): IF 

LEN (B$) > 0 THEN PG(K - 1,D2) =B 
NEXT K 

IF T2 = 0 THEN 4480 
Ll= Tl'#1:12œ T2 + 71 

FOR K = L1 TO L2 

PRINT PPRINTANENFTIES-HET 

IF K - L1l + 1 = 1 THEN PRINT "IERE 
CONTRAINTE °DU°TYPE+e>=e:": PRINT : G 
OTO 4430 

PRINT "IEMEe+CONTRAINTE °DUeTYPEo>=e: 


4430 
4440 


4450 
4460 


4470 
4480 
4490 
4500 
4510 
4520 
4530 


4540 
4550 


4560 
4570 


4580 
4590 


4600 


4610 
4620 


4630 
4640 


4650 


4660 


4670 


4680 


4690 


4700 


4710 


4720 
4730 





">: PRINT 


FOR J = 0 TON -1 

PRINT "COEFFICIENTeDE+eX";J + l;"e=e 
“";: INVERSE : PRINT PG(K - 1,J);: NO 
RMAL INPUT "e";B$:B = VAL (B$): I 


F LEN (B$) > 0 THEN PG(K - 1,J) = B 


NEXT J 
PRINT "VALEUR °DU+ SECOND * MEMBRE °=e"; 
INVERSE : PRINT PG(K - 1,D2);: NOR 
MAL : INPUT "e";B$:B = VAL (B$): IF 


LEN (B$) > O0 THEN PG(K - 1,D2) = B 


NEXT K 
IF T3 = 0 THEN 4590 
LI = TI CTP RRALET21= T1 FUT2 + T3 


FOR K = L1l TO L2 


PRINT : PRINTRK — Li + l; 

IF K - Ll + 1 = 1 THEN PRINT "IERE 
CONTRAINTE °DU°TYPE®e=e:e"; PRINT : G 
OTO 4540 
PRINT "IEME+°CONTRAINTE °DU°TYPE®=e;e 
He PRINT 
FOR d\= OUTO UN. 11 
PRINT "COEFFICIENTeDEeX";J + l;"e=e 
“>: INVERSE : PRINT PG(K - l1,J);: NO 
RMAL : INPUT "e";B$:B = VAL (B$): I 


F LEN (B$) > O0 THEN PG(K - 1,J) =B 


NEXT J 

PRINT "VALEUR °DU+SECOND °MEMBRE °=e"; 
INVERSE : PRINT PG(K - 1,D2);: NOR 

MAL : INPUT "e";B$:B = VAL (B$): IF 


LEN (B$) > O0 THEN PG(K - 1,D2) = B 


NEXT K 
A1 = N + TI - l:A2 = Al + T2:A3 = A2 

+ T2:A4 = A3 + T3 

PRINT : PRINT "FONCTION*:ECONOMIQUE + 
ses PRINT 

FOR J = 1 TON 

PRINT "COEFFICIENTeDE°X";J;"e=e";: 
INVERSE : PRINT - EC(1,J - l1);: NOR 
MAL : INPUT "ee";B$S:B = VAL (B$): I 


F LEN (B$) > O0 THEN EC(1,J - 1) = 
xD 


NEXT J 

PRINT : PRINT "TAPER°1+POUR°UNE MIN 
IMISATION": HTAB 7: PRINT "2°POUR°UN 
E+MAXIMISATION": PRINT : HTAB 7 


IF MO < > 1 THEN MO = 2 


PRINT "VALEUR°+ACTUELLE+=e";; INVERS 
E : PRINT MO;: NORMAL : INPUT “e";MO 
$ 

IF LEN (MO$) > O THEN MO = VAL (M 
O$) 


IF MO < > 1 AND MO < > 2 THEN PR 
INT : FLASH : PRINT "leOUe2eS.V.P.": 
NORMAL : PRINT : GOTO 4640 

IF MO = 2 THEN MO = -]1 

PRINT : INPUT "VOULEZ-VOUS - D'AUTRES 
MODIFICATIONS °?";R$ 

IF LEFT$ (R$,1) = "O" THEN HOME : 
GOTO 4270 

GOSUB 2180 


POKE 34,0: RUN 
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AppleWriter & /RAM 


Christian Piard 


AppleWriter ProDOS utilise les 
éventuels 64Ko de votre carte 80 
colonnes pour permettre le travail 
sur des textes plus importants : la 
mémoire disponible passe, avec 
la carte 80 colonnes étendue, de 
22269 caractères à 46845 soit un 
gain de 24Ko seulement. 


Source AW2 


Dans certains cas, il peut être 
intéressant de renoncer à cette 
extension, afin de récupérer le 
disque virtuel 64Ko que ProDOS 
installe dans cette 80 colonnes. Il 
est possible, par exemple, d'y 
installer les fichiers de travail 
WPL et ceux auxquels il est 


[Je 
//e+ 


Je 
gs 


charge MACHID 

a-t-on 128Ko ? 

non, on ne fait rien 
efface écran 

affiche message 


attend une touche 
en fait une majuscule 


si c'est N, 
change rien 
si ce n'est pas M, on 
boucle 

charge MACHID 

force à 0 le bit 5 


on ne 


: on revient 


: 46845 caractères" 


: 22269 caractères" 


+ 60928 en disque virtuel" 


Assembleur ProCODE 
* Source AW2 
ORG $2000+473 
LDA $Br98 ’ 
AND ##00010000 ; 
BEQ NORMAL 2 
JSR $FCS58 ; 
LDY #0 gs 
MESSAGE LDA MESS,Y 
BEQ MODIF 
JSR SFDED 
INY 
BNE MESSAGE 
BIT $C010 
MODIF LDA $C000 î 
BPL MODIF 
AND ##11011111 ; 
BIT $CO10 
CMP #"N" ; 
BEQ NORMAL 9 
CMP #'"M" a 
BNE MODIF ji 
LDA $BF98 ; 
AND ##11101111 ; 
TAY 
RTS ; 
NORMAL LDY $SBF98 
RTS 
MESS DFB S8D, $S8D 
ASC "“AppleWriter... 
DFB S$S8D 
ASC 
DFB S$S8D,S$8D, S8D 
ASC " <N>ormal 
DFB S$S8D, S8D 
ASC " <M>odifié 
DFB S$8D 
ASE 
DFB 0 
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fréquemment fait appel : les 
temps de traitement s'en 
trouveront considérablement 
réduits. 


Le principe 


Lors du ‘boot’, ProDOS effectue 
des tests concernant Ja 
configuration matérielle utilisée et 
note le résultat en $BF98, octet 
nommé MACHID. Voici le 


codage de cet octet : 

OOxxxOxx Apple Il 

OfxxxOxx Apple Il+ 

10xxxOxx Apple //e 

11xxx0xx Apple /// en émulation 
10xxx1xx Apple /c 

xx01xxXxX  48K0 

xx10xxxx  64Ko 

xx11xxxx  128Ko 

xxxxxx0x pas de 80 colonnes 
xxxxxx1x 80 colonnes 
XxXXXxXxx0 pas d'horloge 
xxxxxxx1 _ horloge compatible 


Par exemple, sur un Apple //e, 
avec une carte 80 colonnes 
étendue, sans horloge, on 
trouvera $B2 et sur un 64Ko : 
$A2. 


Il suffira donc de forcer à 0 le bit 
5 pour indiquer à AppleWriter 
que l'on ne dispose que de 64Ko, 
les 64 qui restent serviront au 
disque virtuel. 


Le programme système AW 
SYSTEM, premier programme 
exécuté au lancement d'Apple- 
Writer, lance en fonction de 
MACHID : AWB.SYS, AWC 
.SYS ou AWD.SYS. C'est donc 
AW.SYSTEM que nous 
modifierons. 


En pratique 


Il convient de n'effectuer la 
modification que sur une copie de 
sauvegarde, sur laquelle au moins 
deux blocs seront disponibles. 
S'assurer en faisant le catalogue 







que la longueur de AW.SYSTEM 
est bien de 473 octets, sinon cette 
modification ne convient pas. 


Suivre les étapes suivantes : 


+ Booter sur la disquette Master 
ProDOS 

+ Mettre la disquette AppleWriter 

+ UNLOCKAW.SYSTEM 

+ BLOADAW.SYSTEM,A$2000, 
TSYS 

+ Mettre la disquette Pom's* 

+ BLOADAWI.C 

+ BLOADAW2.C 

+ Mettre la disquette AppleWriter 

+ BSAVEAW.SYSTEM,A$2000, 
L$298,TSYS 


Maintenant, lors du démarrage 
sur AppleWriter, un message 
apparaît, vous invitant à choisir 
entre AppleWriter ‘normal’ et 
AppleWriter ‘modifié’. 

Le premier vous accorde 46845 
caractères, le second 22269 
seulement mais 60928 dans le 
disque virtuel dont le préfixe est 
‘/RAM'. 


Le message ne sera pas affiché si 
vous n'avez pas de carte 80 





colonnes étendue. 


* ou, si vous ne l'avez pas, mettez la 
disquette sur laquelle vous aurez 
sauvegardé les fichiers AW1.C et 
AW2.C listés ci-contre. G 


Source AW1 
Assembleur ProCODE 


* On remplace l'original 
* LDA $BF98 

* par un saut à notre 

* sous-programme 


ORG 
JSR 


$200D 
$2000+473 


Récapitulation AW1.C 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez 
par : BSAVE AWI1.C,AS$200D,L3 


200D:20 D9 21 


Récapitulation AW2.C 


Après avoir saisi ce code sous moniteur, 
vous le sauvegarderez par : 
BSAVE AW2.C,A$21D9,L$6F 


21D9:AD 98 BF 29 10 FO 2C 

21E0:20 58 FC AO 00 B9 10 22 
21E8:F0 09 20 ED FD C8 DO F5 
21F0:2C 10 CO AD 00 CO 10 FB 
21F8:29 DF 2C 10 CO C9 CE F0 
2200:0B C9 CD DO EE AD 98 BF 
2208:29 EF A8 60 AC 98 BF 60 
2210:8D 8D C1 FO FO EC E5 D7 
2218:F2 E9 F4 ES5 F2 AE AE AE 
2220:8D DF DF DF DF DF DF DF 
2228:DF DF DF DF DF DF DF 8D 
2230:8D 8D AO AO BC CE BE EF 
2238:F2 ED El EC AO AO BA A0 
2240:B4 B6 B8 B4 B5 AO E3 El 
2248:F2 El E3 F4 FD F2 E5 F3 
2250:8D 8D AO AO BC CD BE EF 
2258:E4 E9 E6 E9 FB AO BA A0 
2260:B2 B2 B2 B6 B9 AO E3 El 
2268:F2 El E3 F4 FD F2 ES5 F3 
2270:8D A0 AO AO AO AO AO A0 
2278:A0 A0 AO AO A0 AB A0 B6 
2280:B0 B9 B2 B8 AO ES5 EE A0 
2288:E4 E9 F3 F1 F5 ES5 AO F6 
2290:E9 F2 F4 F5 ES5 EC 00 





Un programme WPL : 


Tabulations automatiques 


Si vous disposez de nombreux 
programmes assembleur réalisés 
sous DOS 3.3, il peut être 
nécessaire d'utiliser les sources 
sous un autre environnement 
(ProDOS, Pascal 1.2, etc.). 


Les assembleurs classiques (Big 
Mac, Lisa) permettent de sauver 
les sources sous format texte 
standard. Malheureusement, les 
tabulations sont converties en un 


seul espace, ce qui donne un 
résultat peu esthétique pour un 
traitement de texte et souvent 
incompatible avec des assem- 
bleurs qui ne suivent pas ce 
protocole : 


LDX #0 

LOOP LDA MSG,X 
JSR COUT ; $FDED 
FL1 DEX 

BPL LOOP 


Bernard Bel 


au lieu de : 

LDX #0 
LOOP LDA  MSG,X 

JSR COUT ; SFDED 
FL1 DEX 

BPL LOOP 


Il serait donc fort utile de 
disposer d'une routine qui 
‘allonge’ le caractère espace pour 
créer une réelle tabulation. Le 
programme proposé ici est écrit 
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en WPL (Word Processing 
Language) disponible sur Apple 
Writer II (versions DOS 3.3 et 
ProDOS). 


Utilisation 


1) Chargez, sous Apple Writer, 
le source à convertir ; 

2) Tapez CTRL-P puis DO 
WPL.TAB. C'est tout ! 


Si vous ne possédez pas la 
disquette Pom's, vous devrez 


saisir le programme, listé 
ci-dessous, puis le sauver sous le 
nom WPL.TAB. Attention: les 
lettres majuscules E,F,G,L],Z 
imprimées ici doivent être saisies 
comme des caractères de 
contrôle, et le caractère S comme 
un espace. 


Une petite précision sur la 
programmation avec WPL : 
l'emploi du caractère "<" au lieu 
du classique "/" pour délimiter les 
chaînes de caractères recherchées, 
permet de représenter le 
retour-chariot par ">", et 


d'utiliser "" et "=" comme jokers 
(wildcards) de longueur 1 ou de 
longueur quelconque. 


Cette routine ne résoud pas tous 
les cas possibles de conversion 
(par exemple les double-espaces 
dans un commentaire ou une 
instruction ASC seront mal 
traduits) mais permet d'obtenir 
rapidement une liste d'un source 
assembleur qui correspond à celle 
obtenue habituellement sur 
imprimante. L 





Programme ‘WPL.TAB” 


É<>J<>SSSS<a 


i : 
: r les lettres E, F, G, |, J,Z PPE | 
Attention Remplace EE * ARABES F<>J<>SSSSS<a ProDOS 
par les caractères de contrôle correspondants, do. 
et S par des espaces. FL>J<>SSSSSS<a 
ppr 

e F<>J<>SSSSSSS<a 

pnd ppr 

ppr f<>J<>SSSSSSSS<a 

ppr ppr 

ppr << Correction de tabulations par WPL >> f/J=/S=/a 

ppr < Bernard Bel > ppr Patientez 

b f<>J<>SSSSS<a 
boucle f/SS/S/a ppr 

pgo boucle f/J/S/a 

ppr ppr 

f<s><><a f/L/SSSSSSS/a 

ppr ppr 

f/=S/=2/a f/1/SSSSSS/a 

ppr Attendez... ppr 

f/S*/E*/a f/2/SSSSSSSS/a 

ppr ppr 

f<>>S<>>F<a f/E*E/SSSS*E/a 

ppr ppr Patientez encore un peu 

f<>>S<>>F<a F<SE<SSSSSSSSSSSSSSSS<a 

ppr ppr 

f<>>S<>>F<a É<SE<SSSSSSSSSSSSSSS<a 

ppr pPr 

f<>>S<>>F<a f<SE<SSSSSSSSSSSSSS<a 

ppr ppr 

f<>>S<>>F<a f<SE<SSSSSSSSSSSSS<a 

ppr ppr 

f/S/J/a F<SE<SSSSSSSSSSSS<a 

ppr Travail en cours ppr Presque fini... 

f<>>J<>>SSSS<a f<SE<SSSSSSSSSSS<a 

ppr ppr 

f<>>J<>>SSSSS<a F<SE<SSSSSSSSSS<a 

ppr ppr 

f<>>J<>>SSSSSS<a F<SE<SSSSSSSSS<a 

ppr per 

f<>>J<>>SSSSSSS<a É<>SSSSSSSSS<>SSSSSSSSSS<a 

ppr ppr 

f<>JJ<>ISSSSS<a pprGGG 

ppr pyd 

f<>J<>SS<a pat 

ppr 

f<>J<>SSS<a rl 





Pom's n° 29 





65 








Apple & Minitel : 
Ligne téléphonique ‘artificielle’ 


Que ce titre ne laisse pas sup- 
poser que nous avons découvert 
des lignes téléphoniques naturel- 
les. Il s'agit simplement de vous 
proposer un montage simple per- 
mettant de simuler une ligne 
téléphonique pour la phase de 
mise au point d'un serveur télé- 
matique, par exemple. Ou, pour- 
quoi pas, pour mettre en place un 
serveur interne ne dépendant pas 
du RTC, le Réseau Téléphonique 
Commuté. 


Le problème est le suivant : votre 
Apple fait fonction de serveur 
(avec un modem ou celui d'un 
Minitel) et vous souhaitez tester le 
travail. 


La méthode la plus simple — la 
plus coûteuse — consiste à dis- 
poser de deux lignes téléphoni- 
ques, l'une connectée à l'Apple 
serveur, l'autre au Minitel. Bien 
sûr, le temps des essais est dans 
ce cas taxé. 


Relier l'Apple serveur au Minitel 
à l'aide de la prise péri- 
informatique n'est pas d'un grand 
secours non plus, car certaines 
fonctions du serveur sont alors 
inopérantes. 


Cette fausse ligne résoud le 
problème ; nous trouvons reliés : 
l'Apple, son modem serveur, no- 
tre ligne, le Minitel qui consultera 
son serveur. Elle résoud acces- 
soirement le problème familial 
que constitue à long terme l'oc- 
cupation du téléphone. 


C'est ce dispositif qui est décrit 
ici, après un bref rappel des 
notions de téléphonie sur les- 
quelles il s'appuie. 


Jean-Louis Chaulot-Talmon 


Circuit de liaison 
téléphonique 


La liaison téléphonique est cons- 
tituée de deux fils métalliques re- 
liant le poste de l'abonné deman- 
deur à celui de l'abonné deman- 
dé. Notre ligne sera donc cons- 
tituée, de façon analogue, de 
deux fils reliant les broches 1 et 3 
du Minitel aux broches 1 et 3 du 
modem micro-serveur. Toutefois, 
dans la communication réelle, les 
parties terminales d'un circuit — 
les lignes d'abonnés — assurent 
des fonctions complémentaires et 
il convient d'examiner celles qui 
incombent à la ligne de l'abonné 
demandé. 


Appel et supervision de 
l'abonné demandé 


Lorsque, conformément aux si- 
gnaux émis par le cadran ou le 
clavier d'appel du demandeur, le 
central téléphonique établit la liaï- 
son avec le demandé, plusieurs 
opérations restent à effectuer : 


* alerter le destinataire en action- 
nant la sonnerie ; 

+ détecter le décrochage afin 
d'arrêter la sonnerie et... taxer 
le demandeur ; 

+ se mettre en mesure de détecter 
le raccrochage pour libérer les 


lignes. 


Les organes essentiels 
d'une ligne d'abonné 


Les deux fils LJ et L2 de la ligne 
sont réunis l'un à l'autre, à 
l'intérieur de la ligne téléphonique 


de l'abonné, de deux façons 

différentes : 

+ d'une part, et de façon perma- 
nente, par une liaison compre- 
nant, disposés en série, un 
condensateur C (en général 2 
UF) et une sonnerie électroma- 
gnétique S d'une impédance 
supérieure à 1000 (2; 

+ d'autre part, mais seulement 
quand le combiné a été soulevé 
de son support (l'interrupteur 
CC est alors fermé), une liai- 
son métallique comprenant 
notamment les contacts d'im- 
pulsion du cadran d'appel 
(CA) — fermés au repos —, des 
enroulements d'une bobine 
d'induction /n et la résistance 
variable du microphone. 


Au repos, la ligne n'est parcourue 
par aucun Courant puisque : 


+ le poste est raccroché : la seule 
liaison présente entre les fils de 
ligne est la liaison condensa- 
teur/sonnerie, or la tension B 
est continue ; 

° l'interrupteur d'appel Z est 
ouvert. 


Quand le moment est venu d'ap- 
peler l'abonné, l'interrupteur J se 
ferme, le courant alternatif À 
débite à travers le condensateur et 
la sonnerie... sonne. 


Dès que l'abonné décroche, l'in- 
terrupteur CC se ferme, le cou- 
rant B passe. 

Pendant toute la conversation, la 
ligne reste alimentée ainsi en cou- 
rant Continu, Courant qui sera mO- 
dulé par le microphone à l'image 
des signaux sonores qu'il reçoit. 
Au raccrochage, CC s'ouvre, le 
courant continu est interrompu. 
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Réalisation de la 
ligne artificielle 


Pour que les centraux téléphoni- 
ques puissent établir, maintenir, 
puis libérer la communication 
comme ils ont coutume de le faire 
pour une conversation normale, 
le modem simule aussi tous les 
états successifs d'un poste télé- 
phonique. Cela signifie, à l'inver- 
se, que la ligne artificielle doit 
reconstituer les fonctions 
essentielles — appel et alimenta- 
tion — d'une ligne d'abonné nor- 
male pour pouvoir déclencher les 
états successifs des modems en 
présence. 


Elle devra donc comprendre : 


° une liaison métallique entre 
Minitel et micro-serveur (du fil 
et deux conjoncteurs norma- 
lisés PTT = 20,00 FE) ; 

° une alimentation en courant 
continu. Compte tenu de la 
faible intensité nécessaire (15 à 
20 mA par modem), 4 piles 
plates de 4,5 V connectées en 


série avec une résistance ajus- 
table RI conviendront ; 

° une alimentation en courant al- 
ternatif. Un transformateur de 
sonnerie d'appartement 220/ 
12v-50 mA convient ; 

° un bouton poussoir Ba pour 
envoyer, à la demande, le cou- 
rant d'appel sur la ligne artifi- 
cielle. Là encore une résistance 
ajustable de quelques centaines 
d'ohms servira à régler le 
courant débité lors d'un appel. 


Réglage de la ligne 


Un poste téléphonique ordinaire 
relié à l'un des conjoncteurs, 
ajuster la résistance RI pour que 
le courant continu envoyé vers le 
poste décroché, se situe entre 13 
et 17 mA (350 à 400 Q)). 


Poste raccroché, ajuster R2 en 
appuyant sur le bouton d'appel 
jusqu'à ce que la sonnerie tinte 
très faiblement. Le courant sera 
alors d'environ 10 mA soit une 
valeur de résistance d'environ 


200 (2. 


Le système est alors prêt ; il suffit 
de relier le micro-serveur à une 
extrémité et le Minitel à l'autre 
pour commencer les essais. 
gratuitement. 


À noter. 


.…..que certains modems à réponse 
automatique nécessitent 2, 3 ou 4 
trains de courant d'appel pour 
répondre. Selon le cas appuyer 2, 
3 ou 4 fois sur le bouton d'appel ; 


qu'avec la faible consom- 
mation, le pile auront une durée 
de vie substantielle ; 


que, lors de l'utilisation, le 
poste téléphonique est inutile et 
sert donc normalement sur la 
ligne téléphonique PTT (une 
source de conflits en moins) ; 


.….qu'accessoirement, cette ligne 
artificielle permet de relier deux 
postes téléphoniques ordinaires, 
pour la plus grande joie des 
enfants. 








Central téléphonique: 


E Abonné 





Schéma de principe Central/Poste d'abonné 
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Schéma de la ligne ‘arficielle’ 








Micro-informations 


Vous découvrirez dans le cahier Mac les 
petits derniers d'Apple : l'un, le ‘SE’ 
fonctionne avec le processeur Motorola 
68000, l'autre, le ‘Mac IT” véritable Mac 
‘ouvert’ avec ses six slots pour cartes 
d'extension utilise un 68020. Mais 
d'autres nouveautés explosives concer- 
nent les communications et l'intégra- 
tion du Macintosh dans des entreprises 
utilisant des IBM petits ou gros. On n'a 
pas fini d'en entendre parler, car c'est 
tout le monde de la micro-informatique 
qui va en être bouleversé. 


Le nouveau 
serveur 


La première nouveauté (annoncée 
d'ailleurs dans le dernier numéro de 
Pom's), c'est le nouveau serveur. Il 
répond au doux nom d'AppleShare. Et 
est simplement constitué d'un logiciel 
qui transforme un Mac en serveur dédié. 
Dédié, car ce Mac ne peut alors (et c'est 
bien dommage) plus faire grand chose 
d'autre, sinon faire fonctionner 
simultanément une autre application 
tout en jouant en arrière fond son rôle 
de serveur. AppleShare vaut aux 
États-Unis quelque 800 dollars et 
permet de servir 25 utilisateurs. Le 
plus, c'est qu'on peut interconnecter 
entre eux les serveurs. Apple utilise 
ainsi 20 Mac servant 450 personnes. 
L'une des possibilités les plus 
révolutionnaires d'AppleShare (baptisée 
multilaunching) consiste dans la 
possibilité donnée à plusieurs 
utilisateurs de pouvoir ouvrir 
simultanément une application installée 
une seule fois. Les éditeurs de logiciels 
vont sûrement faire une drôle de tête. 
L'autre caractéristique du serveur 
AppleShare c'est d'être intégré à la 
dernière version (la 5.4) du Finder. Pour 
les utilisateurs c'est parfaitement 


transparent. 


Il faudra que certains logiciels soient 
adaptés, mais d'ores et déjà, Tops de 
Centram (compagnie d'ailleurs rachetée 
par 3 COM qui se pose en spécialiste de 


Jean-Michel Gourévitch 


la communication sur Mac), Helix 
d'Odesta, les produits de General 
Computer (comme l'Hyperdrive) et, à 
coup sûr, la nouvelle version de de 
Dimension tournent sous AppleShare. 


Le problème c'est donc que le Mac 
serveur ne peut pratiquement faire que 
cela. Ou presque. Car il peut faire 
tourner simultanément une application 
comme Inbox de Think 
Technologies. Inbox, c'est un 
fantastique programme de courrier 
électronique. On installe ce programme 
sur le serveur, puis sur le système de 
chaque utilisateur. On peut alors utiliser 
tout l'arsenal de boîtes à lettres, 
expédier des notes à certains ou des 
messages à tous, avec en prime l'heure 
d'envoi du message, la protection de 
certains messages par mots de passe, 
etc. Les messages sont limités à 30 
pages. Pour les expédier, il suffit de 
cliquer sur les noms des utilisateurs 
connectés qui se déroulent dans une 
fenêtre. On peut difficilement faire plus 
simple. (Prix 295 dollars plus 75 
dollars par utilisateur). Utilisant les 
derniers raffinements des techniques 
d'Apple, Inbox peut relier des Mac à des 
IBM. 


IBM, nous voici 


Car l'autre mouvement spectaculaire, 
c'est le pas fait par Apple vers l'univers 
IBM. Avec notamment l'Apple DCA 
filter. Il s'agit d'un traducteur qui 
traduit en fichiers au format MacWrite 
les fichiers DCA. Il faut savoir que 
DCA est la norme de standardisation 
d'IBM pour l'échange de fichiers entre 
PC. En clair, on pourra désormais 
traduire un fichier texte écrit par 
exemple sous le Displaywriter d'IBM 
pour le lire ou le travailler avec 
MacWrite. Encore faut-il le transmettre. 


Le transmettre ? Rien de plus simple, 
car voici aussi qu'Apple sort (enfin) un 
produit qui était devenu presque 
mythique : sa carte permettant d'intégrer 


tout compatible MS DOS au réseau 
AppleTalk. Voici une carte vendue 400 
dollars qui permet donc à un IBM 
d'envoyer un fichier d'impression vers 
l'imprimante Laserwriter ou un fichier 
texte vers le Macintosh. Ou, suivez 
mon regard, de transférer un fichier 
d'édition électronique de PageMaker 
pour IBM vers PageMaker pour Mac. 


Il ne manquerait plus que de pouvoir 
connecter le Mac à une unité centrale 
pour l'implanter solidement en 
entreprise. Vous avez dit unité 
centrale ? Voici l'AppleLine 3270 
File Transfer Software. Lui aussi 
développé et vendu par Apple en 
personne. Il permet de récupérer sans 
douleur les fichiers des IBM 3270. 


Voici pour les données, mais pourquoi 
s'arrêter en chemin ? On pourrait aussi 
prévoir un moyen de faire tourner 
MS/DOS sur le Mac. Comment ? C'est 
déjà fait ? Hunter Systems, une société 
de Palo Alto aurait développé un 
logiciel permettant aux possesseurs de 
Mac équipés de processeurs 68020 (les 
Mac Ouverts) de faire tourner les 
logiciels MS/DOS avec un système 
baptisé X DOS ? Mais alors, quel 
apanage reste t-il donc à IBM ? 


Du rififi dans les 
bases de données ? 


Apple finit aux États-Unis de tester un 
SGBD connu sous le nom de code de 
Silver Surfer qui n'est autre que le 
fameux 4e Dimension d'ACI (dont la 
dernière version est tout à fait 
extraordinaire). C'est que la firme à la 
pomme va, en effet, distribuer sous son 
nom le programme écrit par Laurent 
Ribardière. 

Cette décision n'est pas du goût de tous 
aux États-Unis, et les éditeurs des 
programmes concurrents, comme Helix, 
font grise mine et adjurent Apple de 
renoncer à sa décision. Quant à Ashton 
Tate, l'auteur de DBase III, qui a retardé 
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le lancement de son SGBD), il observe 
les événements. La décision d'Apple 
n'est apparemment pas facile. Il 
manque, en effet au Mac un logiciel de 
bases de données qui soit devenu un 
standard, comme DBase l'a été pour le 
PC. Dans cette catégorie, aucun produit 
ne s'est imposé encore comme Excel a 
pu le faire pour les tableurs. Dilemme 
d'Apple : patronner un produit 
extraordinaire comme 4D et risquer de 
décourager tout un secteur de l'édition de 
logiciels, ou attendre et risquer de voir 
naître plusieurs standards dont aucun ne 
s'imposerait. Je n'aimerais pas être dans 
la peau de celui qui a pris la décision. 


Vive l'Apple IIGS 


C'est le cri que vont pouvoir lancer les 
actuels possesseurs d'Apple //e. Il est en 
effet prévu qu'Apple procède en guise 
d'upgrade à un échange standard de leur 
machine. Ils pourront troquer leur 
ordinateur favori (repris 4151 Francs) 
contre un GS tout neuf. Et que va faire 
Apple des //e ? Bonne question. Ils 
seront récupérés et distribués dans les 
écoles. D'une pierre deux coups : on fait 
plaisir à de bons clients et on essaie 
d'en recruter d'autres. Futé non ? 


Communications 


Revenons au Mac qui s'impose comme 
un fabuleux outil de communication. 
Frédéric Lévy d'Hello Informatique 
a développé sa dernière version de Mac 
Tell : MacTell3. Voici un logiciel 
exemplaire. Il a été le premier vrai 
programme à transformer un Mac en 
Minitel. Il ne cesse de s'améliorer. 
Depuis la première version, on dispose 
d'un langage de procédures permettant 
d'automatiser, par exemple, la 
consultation d'un serveur. Eh bien 
désormais, ce langage de procédures est 
en français. On peut par exemple 
écrire : «Composer le "36 15" (arrêter 
l'exécution si pas de connexion) 

Pause de 10 secondes 

Taper "175040781", suivi de Envoi» 


Plus besoin de jargon compliqué ou de 
simili Basic. Ce logiciel qui permet de 
tout automatiser, prend toute sa valeur 
avec le Modem Diapason d'Hello 
Informatique. On peut alors 
automatiser la consultation d'un serveur 
à une heure donnée. On peut aussi de 
façon ultra simple transformer le Mac 
en un mini serveur accessible depuis 
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n'importe quel Minitel. Parmi les autres 
améliorations, signalons l'enregistre- 
ment automatique de toute une 
consultation qu'on peut ensuite rejouer 
en local. MacTell3 associé au modem 
Diapason forment vraiment un tandem 
inégalé. 


Langages 


Le Mac accueille deux nouveaux 
langages. Grâce à Coral Software, 
un Logo orienté objet et baptisé bien 
sur Object Logo incorporant les 
raffinements du Lisp. Ce langage de 
programmation de haut niveau est bien 
tentant avec son éditeur multi fenêtres, 
son dévermineur et son compilateur. 
Prix : 80 dollars. 


Un autre éditeur américain : Spencer 
a, lui, développé un APL 68000 pour 
le Mac. Les amateurs de ce langage là 
(il en existe pas mal) sont servis. La 
aussi on bénéficie d'une interface aux 
routines graphiques Quickdraw du Mac. 
Pour 295 dollars. 


Textes et Édition 
électronique 


D'abord un traitement de texte. Un de 
plus. C'est celui de la firme Word 
Perfect, qui a réécrit pour le Mac son 
traitement de texte (l'un des plus cotés 
pour le PC). La firme s'est pliée aux 
menus qui font la gloire du Macintosh, 
mais le changement de caractères se fait 
par une icône au bas de l'écran. Word 
Perfect pour le Mac devrait être vendu 
400 dollars. 


Poursuivons par une petite histoire peu 
morale. La firme Lettraset avait acheté 
la toute nouvelle version de 
MacPublisher qui devait s'appeler 
Lettrapage et publié des publicités 
luxueuses sur ce produit. Comme ce 
programme n'était pas prêt, elle s'est 
rabattu sur la dernière version de Ready 
Set Go, la 3.0, dont elle a acheté les 
droits. Conséquence pratique pour les 
utilisateurs : jusqu'à la fin mars, 
Ready Set Go est vendu aux 
États-Unis par son concepteur 
Manhattan Graphics pour 295 
dollars. Ensuite, simplement rebaptisé 
LettraPage, il en coûtera 100 de plus. 
Aucune crainte de ce genre en France. 
C'est la très dynamique société BIP qui 
continue à importer, traduire (en deux 
semaines) et vendre Ready Set Go 3. 


Rappelons que Ready Set Go version 3 
n'a plus rien à voir avec les versions 
précédentes, qu'il permet de créer ou 
manipuler des objets, est doté d'un 
traitement de texte sophistiqué 
permettant de lier des textes pour le 
faire se déverser aux endroits prévus, 
permettant aussi le crénage (contrôle de 
l'espacement des lettres), la césure 
automatique, et la correction 
orthographique, grâce à un module qui 
sera développé avec l'université de 
Compiègne. BIP qui importe aussi le 
programme graphique Cricket Draw, 
ainsi que divers utilitaires, comme 
Acta, un traitement d'idées incorporé 
dans le menu Pomme vend le tout sous 
le nom d'Edit 2000. Un ensemble 
d'édition de bureau très complet qui 
pourrait faire quelque mal au 
quasi-monopole que s'était assuré 
PageMaker. 


C'est encore BIP, qui importe Guide. 
Guide est un "Hypertexte". C'est à dire 
un système permettant d'accéder à des 
strates d'informations. Imaginons un 
dessin d'un moteur. On clique sur le 
couvre cylindre, et dans une fenêtre 
s'inscrit sa référence. On peut encore 
cliquer dans cette référence pour voir par 
exemple apparaître le prix. Et ainsi de 
suite. On peut établir des systèmes de 
référence, des chronologies, etc. Ces 
systèmes sont particulièrement utiles 
pour retrouver des informations 
stockées par exemple sur un disque dur 
ou un de ces CD ROM, ces Compact 
Discs pour ordinateurs qui vont 
commencer à se répandre. L'hypertexte 
est donc un système électronique 
permettant de lier, référencer, retrouver 
des informations. Il n'est handicapé que 
par un traitement de texte insuffisant et 
un format non standardisé. 


Memorandum de Target Software 
est un de ces logiciels qui vont faire un 
malheur. Il permet de réaliser des notes 
(comme ces notes adhésives qu'on colle 
partout) et de les relier à une cellule 
d'une feuille de calcul. Ce logiciel 
s'installe en accessoire de bureau dans le 
menu Pomme coûte 100 dollars et 
fonctionne avec Excel, Multiplan, Jazz 
ou Works. 


À remarquer encore un logiciel d'édition 
électronique c'est Xpress de Quark. II 
inclut bien sûr (dans sa version 
américaine) un correcteur orthogra- 





phique de 80000 mots, la césure 
automatique, etc. Particulièrement 
remarquable la possibilité de faire se 
répandre automatiquement le texte 
autour d'un dessin aux formes 
irrégulières. Prix : 695 dollars. 


Une fois un texte ou une publication 
réalisé, reste encore à l'imprimer. Un 
accessoire particulièrement utile permet 
d'opérer en tâche de fond, sans mobiliser 
le Macintosh, c'est le Spooler. 
SuperMac Software a développé 
Superspool, un formidable utilitaire 
permettant d'enregistrer un fichier 
d'impression sur le disque et de 
l'imprimer tout en continuant à 
travailler sur le Macintosh. Un 
accessoire qui change la vie des 
utilisateurs pour 60 dollars. Laser 
Superspool permet de réaliser la 
même opération avec une imprimante 
Laser et coûte 150 dollars dans la 
version mono-utilisateur et 395 dollars 
dans la version multiutilisateurs 
(jusqu'à 5). 

Un autre accessoire (cette fois matériel) 
permet aussi d'imprimer avec la Laser 
sans immobiliser le Mac, c'est le Mac 
Buffer d'Ergotron. Une petite boîte 
qui s'insère entre le Mac et la 
Laserwriter et permet de stocker 1 ou 2 
Mégas de texte. 


Outils graphiques 


Ces programmes permettant au Mac 
d'exploiter toutes ses possibilités de 
calculs graphiques l'imposent dans les 
milieux les plus divers. Voici ainsi 
MacSpin vendu Par Bruno Rives 
et Associés. 

C'est un logiciel d'analyse graphique des 
données multidimensionnelles permet- 
tant de découvrir des associations, des 
non linéarités, d'animer et visualiser un 
graphique et données en 3D. Son grand 
avantage est de pouvoir intégrer des 
informations catégorique ou du texte 
dans un graphique. Un outil utile dans 
le marketing, l'ingéniérie ou Ja 
physique des particules, permettant de 
traiter des informations d'astronomies, 
de géophysique, etc. 


Et l'Apple // ? 


Les Apple IIGS commencent à être 
livrés et le II va son train. On attend 
pour avril deux nouveautés de taille 
destinées à lui permettre l'accès au 


Dos 


monde MS/DOS. Boot 
développé par Orange Micro est une 
petite boîte contenant un lecteur de 
disquettes et une partie des composants 
d'un compatible IBM PC permettant au 
IIG d'utiliser ses programmes. 
Applied Engineering a préféré 
étudier une carte permettant d'écrire et de 
lire sur un lecteur de disquettes 
indifféremment en format IBM ou 
Apple. La carte comprend aussi un 
processeur 8088 (celui des compatibles) 
mais cadencé à 8 Mhz. Tournant donc 
plus rapidement que celui de l'IBM. Je 
sais que de nombreux lecteurs de Pom's 
sont intéressés par cette possible 
compatibilité et je ne manquerai pas de 
leur donner dès que possible des 
informations supplémentaires sur ces 
produits. 


En attendant, AST Research a déjà 
sauté dans le train de l'édition 
électronique et étudié toute une série de 
produits pour le IIG. Un système de 
numérisation permettant de transférer 
les images prises en vidéo et de les 
travailler avec AST Vision Effects 
IIG (dommage que ça ne fonctionne 
qu'avec le système couleur NTSC). Des 
disques durs, une carte de mémoires 
Ram, etc. Applied Engineering 
vend la feuille de calculs électronique 
VIP professional (rapide, puissante 
mais exigeant de la mémoire) avec une 
carte de mémoire pour 250 dollars. 
Quant à Maxx de Icon 
Incorporated, c'est tout simplement 
un volant d'avion qui s'installe dans la 
prise de jeux et permet d'utiliser de 
façon encore plus réaliste les 
simulateurs de vol. Prix 130 dollars. 


Des programmes 
en ruban 


Le Softstrip — déjà en vente depuis 
quelques mois aux États-Unis — 
permet de stocker des données sous la 
forme d'un ruban imprimé en noir et 
blanc. Un lecteur qu'on branche sur le 
Macintosh permet de retransformer ces 
données en fichiers ou programmes. 
Déjà, plusieurs revues d'informatiques 
publient leurs programmes sous cette 
forme aux États-Unis. Le lecteur permet 
en quelque 30 secondes de lire ces 
bandes et de récupérer le programme 
dans l'ordinateur sans avoir à les taper 
au clavier. Le prix de ce système très 
remarquable est de 2200 Francs. La 
firme qui le produit, Cauzin, s'est 





alliée avec Kodak pour le distribuer 
dans le monde. Sera-ce un jour un 
nouveau standard ? 


Un souhait 


La période des déclarations d'impôts 
s'est une fois de plus écoulée sans qu'un 
éditeur ne propose un système complet 
permettant de déclarer et calculer ses 
impôts sur ordinateur. Ce marché est 
pourtant prospère aux États-Unis. Et 
nos Mac français alors ? 


Adresses 


Think Technologies 
420 Bedford St, Lexington 
MA 02173 


Hello Informatique 
1, rue de Metz 
75010 Paris - Tél. : 45 23 30 34 


Coral Software 

Tél. : 617 868 7440 (aux 
États-Unis) 

Spencer Organization 
PO Box 248 Westwood 
NJ 07675 


BIP 
13, rue Duc 
75018 Paris - Tél. : 42 55 44 63 


SuperMac Software 
950 N.Rengsstorff Av 
Mountain View CA 94043 


Ergotron 

PO Box 17013 Minneapolis, 
MN 55417 

ACI 


6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 43 59 89 55 


Bruno Rives et associés 
6, avenue Franklin Roosevelt 
75008 Paris - Tél. : 42 89 02 36 


Target Software 
Tél. : aux États-Unis : 
(305) 252 0892 


Applied Engineering 
PO Box 798 Carrollton 
TX 75006 


Orange Micro 

1400 n.Lakeview 

Av. Anaheim CA 92807 

AST Research 

2121 Alton Av. Irvine CA 92714 


Icon Incorporated 
1611 116th Av NE Bellevue 
WA 98004 
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Un nouveau produit Pom's : BananaSoft 


Pom's vous propose un nouvel utilitaire qui simplifiera les 
rapports houleux qui existent souvent entre le programmeur 
et l'Applesoft. E.P.E. nous donnait un éditeur digne de ce 
nom ; voici maintenant une amélioration des possibilités du 
Basic ainsi que la correction de ‘bugs’. 


Le but 


Les principaux objets de Bananasoft sont : 


e réconcilier la carte 80 colonnes et le Basic (problèmes du 
GET, du HTAB...) ; 

e aider le Basic dans son travail sur les chaînes (nouvelles 
fonctions, ramassage des poubelles 15 fois plus rapide) ; 

+ permettre la saisie au clavier sans attendre la 
disponibilité du Basic : il s'agit d'un véritable ‘buffer 
clavier’ de 32 caractères. 

On se rapprochera aussi du Basic Microsoft 5.x par des 

fonctions telles SWAP, ERASE, LINE INPUT sans pour 

autant encombrer la mémoire (moins de 4Ko). 


Quelle configuration ? 


Bananasoft fonctionne sans problème sur Apple ][+ (avec 48 
Ko et ROM autostart), / /e, //e 65C02 et //c). Bien entendu, 
Bananasoft est à même de tirer parti de la présence 
éventuelle d'une carte langage. 


Bananasoft reconnaît certaines cartes 80 colonnes : 


Apple Text card et Extended 80 col. pour l'Apple //e; 
Carte compatible (Eve Chat Mauve par exemple) ; 
Circuiterie interne de l'Apple //c; 

Carte 80 col.Videx Videoterm pour Apple 2+ (firmware 
2.4 : si votre carte reconnaît les séquences ESC I, J, K, M au 
clavier, elle conviendra). 


Le système d'exploitation supporté est le DOS 3.3 en version 
48 Ko uniquement. Bananasoft lui apporte bien sûr quelques 
raffinements comme la possibilité d'entrer ses commandes en 
mode minuscules. 


Tout programme Applesoft peut être exécuté sans 

modification sous Bananasoft, si l'une au moins de ces deux 

conditions est vérifiée : 

e le buffer clavier est désactivé durant l'exécution dudit 
programme ; 

+ le programme n'accède au clavier que par les ordres GET, 
INPUT ou LINE INPUT (pas de PEEK/POKE/W AIT). 


Les modifications à apporter aux programmes ne s'inscrivant 
pas dans ce cas là sont explicitées dans la documentation. 
Notons l'existence de deux nouvelles commandes DOS : 
INSTALL et INHIBIT gérant la réception de caractères dans 
le buffer, deux outils puissants pour résoudre le problème 
précité. 

Bananasoft se reloge de lui-même entre le DOS et les buffers 
et est de cette façon totalement protégé d'une modification 
du nombre de ceux-ci (par la commande 'MAXFILES'). 


Les possibilités 


Les améliorations portent sur 4 points : 
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Amélioration des fonctions du DOS 
+ Minuscules dans les ordres DOS. Ainsi : 
Jbsave TITLa$2000,1$1fff 


est acceptée par le DOS qui effectue une conversion 
minuscules /MAJUSCULES sur toute la ligne, exceptée les 
dénominations de fichiers. 


+ une nouvelle option est fournie pour l'ordre BSAVE, 
l'option 'E' (comme END). 


IBSAVE TITI,A$2000,E$3FFF 
est équivalent à : 
IBSAVE TITI,A$2000,L$2000 


naturellement, les 2 options ‘E’ et ‘L’ 
mutuellement. 


s'excluent 


+ Un nouvel ordre est apporté au système : il s'agit de ‘—’ 
(prononcer SMART RUN). Les utilisateurs de ProDOS 
connaissent déjà cet ordre ; il s'agit d'‘exécuter” un fichier 
quel que soit son type. SMART RUN sera équivalent à un 
EXEC si le fichier ouvert est du type texte, à RUN si celui-ci 
est un programme BASIC Integer ou Applesoft, ou à BRUN 
s'il s'agit d'un fichier binaire. 

e Les commandes INSTALL et INHIBIT ont été ajoutées au 
DOS afin de simplifier l'exploitation du buffer clavier. 


+ La commande FP ne déconnecte pas Bananasoft dans le cas 
où le langage courant était l'Applesoft mais le réinstalle si 
le langage était l'Integer. 


e Et enfin, the last but not least, la commande INIT 
conserve son fonctionnement normal : elle installera sur 
disquette une version standard du DOS. 


e Dernier petit détail, Bananasoft permet aux possesseurs 
d'Apple ][+ (les pionniers !) de ne pas tomber en syncope 
devant des écrans “francophones”, un mode de visualisation 
permet à ceux-ci : 

- une conversion minuscules/MAJUSCULES des caractères 
sortant sur leur écrans 

- une conversion des caractères ‘éèàùç” en ‘eeauc’… 


Amélioration des fonctions 
standard d'Applesoft 


e Les intructions BASIC 'PR£' et'IN£' ne déconnectent plus 
le DOS. Ainsi : 


10 PR£1 
est devenu équivalent à: 
10 PRINT CHRS (4);"PR£1" 


e Un ramassage des poubelles ('garbage collection") est 
intégré dans Bananasoft, totalement transparent, il vous 
apporte une multiplication de la vitesse d'exécution des 
intructions portant sur les chaînes de caractères par un 
facteur supérieur à 2... Bananasoft reloge de lui-même une 
version améliorée de FRE(16) sur la carte langage si celle-ci 
a été détectée lors du boot, libérant ainsi plus de deux pages 
(1 page = 256 octets) pour le Basic. À noter que ce chargement 
ne perturbe en rien le fonctionement du langage BASIC 
Integer si celui-ci est lui aussi chargé en RAM. 


+ Toutes les instructions Applesoft de positionnement du 
curseur (HTAB ainsi que le séparateur ',' dans l'ordre 








PRINT) sont désormais compatibles avec les 80 colonnes à 
l'écran. 

e L'instruction GET ne détectait pas sous Applesoft la 
frappe de la touche ESC lorsque les programmes de gestion 
80 colonnes (anciennes ROM) de l'Apple //e était activé. 
Bananasoft résout ce problème. 


e Les instructions HOME et HTAB sur Apple J[+ ne 
fonctionnaient pas, ou mal, lorsque le périphérique de sortie 
était la carte 80 colonnes, ces petites misères ne sont plus 
maintenant qu'un mauvais souvenir. 


e La fonction POS() est opérante maintenant également en 
80 colonnes. 


Nouveaux mots-clé au 
vocabulaire d'Applesoft 


e RESTORE <n‘-de-ligne> 

Même signification que pour le Basic Microsoft 5.x, 
repositionne le pointeur de DATA au numéro de ligne 
spécifié, numéro qui est optionnel. 

e SWAP nom-var,nom-var 

Assure l'échange des valeurs prises par les deux variables 
spécifiées. Celles-ci doivent être du même type (entier, réel 
ou chaîne) sinon une erreur du type TYPE MISMATCH est 
signalée. Ex : SWAP A$,FF$ 


e ERASE nom-de-tableau 
efface de la mémoire centrale le tableau de variable dont le 
nom est spécifié. Ex : ERASE G$. 


e LINE INPUT <constante-littérale;>nom-var. 

Permet d'entrer toute séquence de touches frappée au clavier 
et de la stocker dans une variable chaîne de caractères. Les 
seuls caractères de contrôle étant interceptés par le 
programme sont RETURN pour valider, et flèches gauche et 
droite pour corriger. Ex : 


LINE INPUT ‘init. imprimante ? ",II$ 


Ceci permet de saisir directement au clavier ESC-e par 
exemple pour faire passer l'imprimante en caractères Élite. 
e *LIST<n‘-de-ligne><,><n'-de-ligne> 
La syntaxe est identique à celle de l'instruction LIST de 
l'Applesoft. La différence tient dans le format d'affichage 
des mots-clé : ceux-ci ne se voient pas systématiquement 
entourés par des espaces. Ex : 
*LIST 1009,1080 
e INSTR(<indice de départ, >chaîne,chaîne) 
Cette nouvelle fonction offerte par Bananasoft cherche la 
chaîne B$ à l'intérieur de la chaîne AS$ en partant du 
caractère N, et retourne la position de la chaîne B$ dans P. 
P=INSTR(N,A$,B$) 
Exemple : 
A=INSTR(5,"SALUT LA COMPAGNIE! 
UT!","SALUT") 


retournera la valeur 21 dans À, le premier SALUT après le 
cinquième caractère apparaissant en position 21. 


e STRINGS(N,C) 

Retourne une chaîne de N caractères C. Si C est une 

expression alphanumérique, le caractère utilisé sera le 

premier caractère résultant de l'expression. Exemple : 
A$=STRINGS$(4,"01234") 


retournera la chaîne "0000" dans A$, A$=STRINGS$(4,48) 
retourne aussi "0000" dans AS. 


SAL 


+ Pour ceux pratiquant une programmation plus proche de la 
machine, Bananasoft leur permet des POKE et des PEEK sur 


des mots de 16 bits (2 octets consécutifs de la mémoire) : les 
nouveaux termes seront respectivement : 


DOKE adresse;mot_16 bits (adresse < poids faible - 
adresse+1 < poids fort) 


DEEK(adresse) renvoie le mot_16 bits contenu dans adresse. 
Ex: 
DOKE 1780,DEEK(&H300) 
e Les constantes hexadécimales sont admises dans toute 
expression arithmétique : &HFF équivaut à 255. Exemple : 
AC = &HEC58 : CALL AC 
e Il est désormais possible de connaître l'adresse d'une 
variable en mémoire, ceci par emploi de la fonction 
VARPTR : 
VARPTR(nom_variable) 


renverra l'adresse où se trouve stockée la valeur d'une 
variable numérique ou le descripteur d'une variable chaîne 
de caractères. Une technique d'emploi de routine en langage 
machine dans un programme BASIC pourrait alors être 
celle-ci : 


CALL DEEK(VARPTR(A$)+1) 


où la routine relogeable se trouverait être dans la variable 
AS. À noter que cette méthode est aussi populaire sur 
certaines machines (Macintosh, TRS80) que la routine 
SHLAM sur Apple //. 


Le buffer clavier 


À la mise en route du système, la réception des caractères est 
inhibée et la gestion clavier est normale ; c'est la commande 
DOS INSTALL qui autorise le buffer à fonctionner... La 
réception des caractères est lancée durant : 


e tout appel à CHRGET/ CHRGOT en page zéro ; 

e tout appel à COUT passant par le relais du DOS ; 

e tout appel à RDKEY passant par le relais du DOS et 
n'appelant pas un périphérique clavier ; 

e tout appel à RWTS. 

Les caractères tapés au clavier seront stockés en attendant la 

fin du travail en cours (anticipation lors de calculs lents par 

exemple). 

Lorsque le buffer clavier est activé, la frappe de certaines 

touches provoque divers processus. 


- La frappe de <CTRL><X> provoque l'initialisation 
complète du buffer. 

- La frappe de <CTRL><C», outre qu'elle provoque elle 
aussi l'initialisation du contenu du buffer, n'est pas pris en 
compte par lui et le code reste dans l'adresse tampon de 
l'Apple ($C000). 

- Lorsque le périphérique de sortie est l'écran, la frappe de 
<CTRL><S> n'est pas pris en compte et son code reste dans 
l'adresse tampon de l'Apple. La fonction de cette touche (le 
"gel" de l'écran) est alors assuré par le driver vidéo. 


L'adaptation (simple) de vos programmes au bénéfice de ce 


buffer est discuté en détail dans la documentation et fait 
l'objet d'un exemple sur la disquette. 


La disquette 


La disquette 5,25 pouces au format DOS 3.3, comporte les 
sources, l'objet et une démonstration. Des informations à 
destination des programmeurs sont apportées dans la 
documentation jointe. 


Franco 200,00 F TTC, port avion hors CEE 15,00 F, 
bon de commande page 74. 
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Courrier des Lecteurs 


Les slots du IIGS 


Sur mon futur GS, pourrais-je 
utiliser simultanément les ports 
intégrés et mes cartes interfaces ? 


M. P. Mykiéta, 92 Gennevilliers 


Oui et non : un tableau de bord 
(accessible par CTRL-OPTION- 
ESC ou CTRL-OPTION- 
RESET) vous donne pour chacun 
des slots le choix entre votre carte 
ou celle qui est intégrée, par 
exemple en slot 4, votre interface 
ou la carte souris. À vous de 
choisir. 


Minitel et Apple(s) ?? 


Que pensez de votre n°27 sur la 
communication ? Le montage que 
vous proposez pour la liaison est 
séduisant mais le support 
technique d'un club me dit qu'il 
faut l'éviter, plusieurs personnes 
ayant claqué leur micro. S'il est 
aussi simple, pourquoi 
proposez-vous le câble à 
225,00 F alors qu'on le trouve 
parfois à 900,00 F ? Un 
informaticien qui commercialise 
les liaisons PC-Minitel me dit que 
seul le modem Sectrad 300 
convient et que la liaison //c 
Minitel est impossible. 


M. Raymond, 77210 Samoreau 


Rassurez-vous, la liaison 
proposée dans les Pom’s 27 et 28 
fonctionne sans souci, telle que 
décrite, chez nombre de nos 
lecteurs et nous pratiquons ici 
intensivement la transmission de 
fichiers à l'aide d'InterPom's. 


Les conseils de tel ou tel ? Que 
dire si ce n'est de faire confiance 
aux interlocuteurs qui ont la 
pratique de la communication ? 
Le modem 1200 bauds du Minitel 
ne fatiguera par plus le //c qu'un 
modem 300 bauds (votre Apple 
transmet ses données à l'Image 
Writer à 9600 bauds...). 

Le prix ? Nous ne saurions rien 


expliquer mais précisons que les 
câbles à 900,00 Frs sont 





Pom's n° 29 


fréquemment accompagnés d'un 
logiciel d'émulation Minitel. 


Enfin, en cas de difficultés de 
mise en œuvre des programmes 
Pom’s, nous vous répondrons 
téléphoniquement : 

(1) 39 51 24 43. 


Le moniteur étendu. 


..deT. Le Tallec (Recueil Pom's 
n°2) fonctionne normalement sur 
l'Apple /Ic après avoir apporté les 
modifications suivantes. 

Dans le source : 

L 71 CHARI 
L 72 CHAR2 
L 75 RTBL 
Dans l'objet : 
9141:D7 (1E) 

9142:F9 (FA) 

93A7:BA (B4) 

93AF:B4 (BA) 

93B4:B4 (BA) 

(entre parenthèses figurent les anciennes 
valeurs) 

M. P. Adang, 52110 Blaiserives 


$F9BA (F9B4) 
$F9B4 (F9BA) 
$FAD2 (FB19) 


Minitels face à face 


Comment, par programme, faire 
que deux Minitels puissent se 
reconnaître après connexion ? 
Après une connexion manuelle, il 
n'y a pas de porteuse sur la ligne. 


C. Laron, 13100 Aix. 


Il est nécessaire que l'un des 
deux Minitels soit retournable, 
c'est-à-dire qu'il sache émettre à 
1200 bauds et recevoir à 75 au 
lieu de l'inverse en fonction- 
nement Sur Serveur. 

Vous pouvez vous inspirer des 
programmes ‘“InterPom’s” du 
numéro 28 : 


Côté Minitel retournable, envoyer 
sur la prise péri-informatique les 
caractères suivants : 27, 57, 104, 
27057 lliecerquiroutre le 
retournement, provoque la 


connexion et l'émission d'une 
porteuse à 1700 Hz (+400) qui 





déclenchera la porteuse à 420 Hz 
(+230) du Minitel de votre 
correspondant. 


Prochainement 


Pom's vous proposera de 
nouveaux programmes 
d'enregistrement et 
d'exploitation des pages 
Minitel pour Apple || et 
Macintosh. Écrits en 
assembleur, ils seront dotés 
de puissantes fonctions de 
filtrage et de récupération de 
fichiers, ils fonctionneront 
sur toutes les machines et le 
port communication du Ilgs 
sera exploité. Les suggestions 
sont les bienvenues. 


Dans les prochains 
numéros, 


d un programme de gestion 
d'un écran virtuel, 

éd des courbes récursives en 
Pascal, 

d un numéroteur de 
fichiers ProDOS, 

& DhgrTools pour 
manipuler les pages 
graphiques, 

d un programme de tracé 
de courbes, 

éd un jeu de réflexes et de 
réflexion, 

éd des essais hard et soft, 

éd des éléments pointus sur 
les nouveaux matériels. 


Pour le Macintosh, 


é des accessoires de bureau, 

éd des utilitaires, 

éd des applications 
autonomes de la veine 
d'InterPom's… 


RE 


Bon de commande 


Disquettes 


BASICIUM (cf. Pom's n° 13) 200,00 F 
1 8 SI PSS 800 Ko ou 140 Ko (cf. Pom's n° 29) 200,00 F 
Échange EPS Si . 800 Ko ou 140 Ko (cf. Pom's n° 29) à 80,00F 
PASCAL (cf. Pom's n° 15) 80,00 F 
(cf. Pom's n° 18) 150,00 F 
(cf. Pom's n° 19) 80,00 F 
(cf. Pom's n° 21) 200,00 F 
(cf. Pom's n° 25) 80,00 F 
ORDEGO Sri recse en 140 Ko (cf. Pom's n° 26) à 200,00 F 
BANANASOFT (cf. Pom's n° 29) à 200,00 F 


Recueils 


N°1, recueil des revues 1 à 4 à 140,00 F 
Disquettes d'accompagnement 1 à 4 200,00 F 
N°2, recueil des revues 5 à 8 à 140,00 F 
Disquettes d'accompagnement 5 à 8 à 200,00 F 
N°3, recueil des revues 9 à 12 140,00 F 
Disquettes d'accompagnement 9 à 12 200,00 F 


Revues, disquettes 
Revues4 7 8 35,00 F 
Revues 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 40,00 F 
Revues 27 28 29 45,00 F 


Disquettes Apple // 140 Ko 5,25 pouces 
LS AS NICUNTEES COM IOMIIN 1221501415 60,00 F 
16 17 18 19 20 21 22 23 24 25 26 27 28 29 

Disquettes Apple // 800 Ko 3,5 pouces 
29 80,00 F 


Disquettes Macintosh 
14/15/16 groupées 150,00 F 


1718019 20021 222302425026 27, 2829 80,00 F 
Mac ‘A’ 80,00 F 


MacAstuces 200,00 F 
RSC” 200,00 F 
Abonnements Pour 6 numéros à partir du n° 


Abonnement à la revue seule 225,00 F 
Abonnement revues + disquettes Apple // 140 Ko 5,25' à 525,00 F 
Abonnement revues + disquettes Apple // 800 Ko 3,5' 625,00 F 
Abonnement revues + disquettes Macintosh 625,00 F 


Reliures toilées 
Pour 6 numéros, un an de Pom'’s 


Supplément avion hors CEE : ajoutez 15,00F par numéro et/ou disquette Total TEC:: 


Envoyez ce bon et votre règlement à : ÉDITIONS MEV - 12, rue d'Anjou 78000 VERSAILLES 


Nom : 


Adresse : 


Carte bleue/VISA D RIRCONE NE ANR S =... ne 
date d'expiration: ____ } 
moblant Lu. FE signature : 





74 Pom's n° 29 








“Communication” 


. Care SagerSere & CP Ponge permet de oies comcréms de NT some CPE 


Bon de commande 


Pom's 26 : 


Pom's 27: Apple N, Carte SagerSérue & CPUM Ze parce Es commmme-attene sata le prete SEE 
Apple & Mooce Progme Lever € de ruse © eneur des ae Meuse Que lee Gers 
Muciecse & Mooce Programme L'eepsrenenx € de entre £ her des mes Mérme 


Trser Pos Apode D ec Encer Poux s Macmcost pour œoesmetre des facons gur Mimtiel 


Je désire recevoir : Câble Minitel/Apple J[+, lle, le+, Ilgs avec SSC* à 225,00 
Câble Minitel/Apple //c 225,00 
Câble Minitel/Macintosh 128, 512 225,00 
Câble Minitel/Macintosh Plus 225,00 





* les programmes des numéros 26 à 28 ne fonctionnent sur le Ilgs qu'équipé d'une 


à Re Le : Total TTC 
carte SuperSérie Apple. Pour relier votre Ilgs au Minitel en utilisant le port intégré, 


commander un câble Macintosh Plus. 
Envoyez ce bon et votre règlement à : 
Nom : 


Adresse : 


n° de la carte : 
date d'expiration : 
montant : 


Carte bleue/VISA 


Comme à l'accoutumée, la disquette 
Pom's “Mac 29” contient les fichiers et 
programme - exécufables et sources - 
publiés dans le cahier Macintosh de ce 
numéro. En plus, nous avons ajouté 5 
accessoires de bureau : 


ee dCAD Calculator, une calculatrice 
scientifique à mémoire ; 

ee Hex Calculator, une calculatrice 
décimale/hexadécimale appréciée des 
programmeurs ; 

e Word Count, pour connaître le nombre 
de mots, caractères et paragraphe dans 
un document ; 

e Telegraph transforme en code morse 
visuel et sonore tout ce qui est frappé 
au clavier, ou collé ; 

e Extras permet de connaître à tout 
moment la place disponible sur le 
disque, en mémoire, de renommer un 
fichier. 


et une très intéressante application - 
DA/Test - qui permet d'essayer ou 
utiliser des accessoires de bureau sans les 
installer dans le menu 6. De fait, il évite 
aussi la saturation dudit menu avec des 
accessoire d'usage peu courant. 


Disquette Pom's “Macintosh 29” 
80,00 Frs - Bon de commande ci-contre. 





Supplément avion hors CEE : ajoutez 15,00F 


ÉDITIONS MEV - 12, rue d'Anjou 78000 VERSAILLES 


F signature : 


Disquette Pom's 
“Macintosh 29” 





EF francophone des 
AE) utilisateurs 
sl d'Apple 
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